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Key Points 


The listings shown in this book have all been made directly from 
working programs, using a Commodore VIC-1515 printer attached 
to the Commodore 64. This has been done to avoid the errors which 
always seem to occur when listings are independently typeset. All the 
programs should work perfectly, provided that they are correctly 
keyed in. The description of each program has a section dealing with 
keying it in. Below are given some general points that apply to all 
programs. 

A mistake which is easy to make (it happened quite often during 
the writing of this book!) is to type ‘O’ (letter ‘oh’) instead of ‘O’ 
(figure ‘zero’). The letter ‘oh’ is used in BASIC words such as ‘FOR’ 
and ‘PORE’, but is never used alone in this book as a variable. In a 
few instances it is used as part of a variable name, e.g. MO$, used 
to represent a month number. In the listings, the figure ‘0’ has a 
stroke across it to distinguish it from the letter. Another confusion is 
between ‘I’ (letter ‘eye’) and T (figure ‘one’). The letter is not used 
alone as a variable in any of the listings, but it has not been possible 
to avoid using it in the two time variables, TI and Tl$. To save 
confusion, none of the programs use a variable called Tl (‘tee one’). 

The semicolon is an essential item in many PRINT statements. 
Keep a sharp eye open for this, especially at the ends of lines. It may 
be even more difficult to spot in a multistatement line such as: 

FOR J=1 TO 10:PRINTM$(J);:NEXT 

If you leave out the semicolon, the display on the screen will be 
spoiled. 

The Commodore 64 requires frequent use of the POKE statement 
for controlling its visual and sound effects. POKEing the wrong 
number to the right address may have dire consequences, and 
POKEing the right number to the wrong address can be even worse! 
If the computer ‘hangs up’ when you RUN the program, it is 
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probable that you have made a mistake with one of the POKE 
statements. This can never damage the computer, of course, but it is 
tedious to have to switch off the machine and type in the program 
again. To save space, we frequently use a variable such as S (for 
sound, or SID) and V (for vision, or VIC II chip) in a POKE 
statement. At the beginning of the program, for example, we have a 
statement such as ‘V= 53248’ and then use statements such as ‘POKE 
V + 17’ throughout the program. If you have forgotten to type in the 
statement which defines V, any statement such as ‘POKE V + 17’ 
later in the program will have strange results. 

Several of the programs take advantage of the 64’s facilities for 
specially defined graphics. In order to do this the program alters the 
way the computer uses its memory. The result is that, should you 
stop the program when it is running or try to use the computer when 
the program is finished, some or all of the ordinary keyboard 
characters may appear as featureless smudges on the screen. Do not 
worry, the computer has not been harmed. Just press RUN/STOP 
with RESTORE, and they will appear normally. 

Programs which rearrange memory always reduce the amount 
available for the BASIC program. This action is not cancelled by 
pressing RUN/STOP with RESTORE. The effect persists even 
when you have NEWed the program and are trying to load the next 
one. If this is a very lengthy one you could get an ‘OUT OF 
MEMORY’ error at this stage. What has happened is that the new 
program does not fit into the restricted amount of memory allocated 
for the previous program. The easiest thing to do is to switch off the 
computer, then switch on and LOAD the new program. 

A few of the programs have a large number of POKE statements 
in them. Others have machine code routines in the form of DATA 
statements. It is well worth while to SAVE such programs on to tape 
or disk before RUNning them. There might be a small error in your 
typing (for example, a POKE to the wrong address) which causes the 
computer to stall when the program is RUN. The only remedy may 
be to switch off the computer and start again. With the program 
already on tape, it takes only a few moments to reload it and look for 
the error. 

One of the features of Commodore computers is their use of 
control characters. These are characters, such as the reversed heart, 
which appear in PRINT statements and tell the computer to do 
something. In the example above, the character has the same effect 
as pressing CLR/HOME with SHIFT. Such characters affect the 
computer, and most of them appear in listings, but they never 
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actually appear on the screen when the program is running. The 
VIC-1515 printer reproduces most of these characters but with a low 
degree of resolution, which often makes them difficult to recognise. 
For this reason, the ‘Keying in’ section of each program lists all the 
control characters used in that program and the lines on which they 
occur. If a character occurs more than once in a line, the number in 
brackets tells you how many times it occurs on that line. Below is a 
table to show you how to obtain each of these characters, when 
typing a PRINT (or INPUT) statement. 

One slight complication is that two of the programs (Accountant 
and Info File) are listed in text mode (both upper- and lower-case) 
since the computer is switched to this mode by the program when it 
is RUN. Listings in text mode have a different set of symbols for 
control characters. 


Character 
Normal Text 

mode mode* 

Its effect 

Key presses 

m 

ss 

Cursor home 

CLR/HOME 

ra 

*3 

Clear screen, 
and send the 
cursor home 

CLR/HOME and SHIFT 

M 

SI 

Cursor down 

up-down CRSR 

n 

ya 

Cursor up 

up-down CRSR and SHIFT 

ai 

ii 

Cursor left 

left-right CRSR and SHIFT 

■ 


Black print 

CRTL and 1 

* 


White print 

CTRL and 2 

k. 


Cyan print 

CTRL and 4 

m 

m 

Purple print 

CTRL and 5 

Bfl 

-a 

Reverse on 

CTRL and 9 

m 

ai 

Reverse off 

CTRL and 0 


* listings in Chapters 1 and 3. 

Note that all the control characters appear as ‘reverse’ characters. If 
you get a normal character, when typing the above, you may have 
forgotten to type the “ at the beginning of the PRINT statement. 

You will see that the list above does not include the control 
characters for the colours obtained by using the ‘Commodore’ key. 
This is the key marked with the Commodore logo, situated at the 
extreme left of the front row of keys. We will refer to it as the ‘C=’ 
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key, since the symbol on it has a similar appearance. The VIC-1515 
ignores these symbols when it lists a program, so they do not appear 
in the listings given in this book. Where such characters have been 
used (which is not often) they are noted under the heading ‘unlisted’ 
in the ‘Keying in’ section. The table below shows how to obtain those 
characters that are used in this book, and what they do. 


Character 

Its effect 

Key presses 

Normal 

Text 



mode 

mode* 



n 

w 

Light blue print 

C= and 7 



Grey 3 print 

C= and 8 

m m 


(Light grey) 



* Listings in Chapters 1 and 3. 


The control character which is used to put the computer into text 
mode (upper and lower case, as on a typewriter) is used in the two 
business programs mentioned above. This character is referred to in 
the ‘Keying in’ sections as TEXT. It is unlistable on the VIC-1515, but 
its position in the program line is described. This character cannot 
be obtained by a simple key-press. To insert the Text control 
character, first type the message string which is to contain it, but 
leaving a space where the character is to go. Finish typing the 
program line, then press RETURN. Key SHIFT and 9 to put the 
computer into reverse display mode. Using the cursor keys and 
SHIFT in the ordinary way, position the cursor on the space you left 
in the message. Then key n. A reversed n appears in the space; this is 
the Text control character. Press RETURN to register the line, then 
press SHIFT with 0 to switch off the reverse mode. You can then 
continue typing in the program in the usual way. 

The paragraph above assumes that you have the computer in 
text mode when keying in the Accountant and Info File 
programs, as recommended in the chapters concerned. Should you 
prefer to key in with the computer in graphics mode (upper-case 
only), then type a capital N instead of the lower-case n referred to 
above. 
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Storing data on tape 

Several of the programs are concerned with the storage and 
handling of data, such as account details, stock quantities, or 
questions and answers. These programs have all been designed to 
make the best use of cassette tapes as the data storage medium. 
Readers with disk drives will find it easy to adapt the programs to 
work with disks, though programs which were primarily intended 
for disk-based storage would normally be designed in a slightly 
different way to take advantage of that fact. 

With any kind of magnetic medium, whether tape or disk, there is 
the risk of faulty mechanisms or media causing a partial or total loss 
of data. This can also occur should the power supply to the 
computer fail while data is being transferred to disk or cassette. The 
risk of a crash always exists but there are several ways in which the 
risk of loss of data can be minimised: 

(1) Always use the best quality tapes (or disks) obtainable. Often the 
so-called ‘computer’ tapes which are sold cheaply are not reliable 
enough for storing important data. Price is a fairly good guide to 
quality; you need to pay £1, possibly more, to obtain a good quality 
C-15 tape. 

(2) Tapes longer than C-30 are not to be recommended for such 
tapes are usually coated on a thinner base. This is more subject to 
distortion, especially when the larger mass of tape on each reel 
causes greater tension in the tape as it passes the tape head. 

(3) Clean the tape heads regularly. 

(4) Use a tape head demagnetiser every month or two. 

(5) Store tapes in their cases, and keep them well away from any 
device which emits a strong magnetic field. In particular, tapes 
should not be placed close to the TV set or monitor used with the 
computer. 

(6) Take a back-up copy, or possibly two copies, of any data that you 
cannot afford to lose. The programs provide the opportunity to do 
this. 

(7) If you have a printer, make a ‘hard’ copy of the data from time to 
time. The Accountant and Stock Take programs include routines for 
using the VIC-1515 to provide printouts of the data. These printer 
routines are easily modified for use with other printers. 

If you adopt the suggestions above, the risk of data loss is reduced 
to such a low level that you need worry no more about it. 


1 

Accountant 



This is a tape-based accounting program suitable for the small 
business or the home. The Club or Committee Treasurer, too, will 
find it useful. It can handle up to eighty different accounts, each 
identified by name or code number and can deal with up to 3500 
separate transactions at one loading. The program uses the 
Commodore Datassette to store the records on tape. The well 
known disadvantages of using tape as a storage medium have been 
minimised by the design of the program. Data is efficiently 
compacted before recording it, so as to reduce the length of tape 
used and to cut down the time required for saving and loading. For 
convenience, all newly entered transactions are held on a special 
Update tape. This holds up to 100 transactions. If you want to recall 
only the most recent transactions and to view the present balances 
on your accounts, this tape is the only record you need keep. Home 
users may not need more than this. Those who have more 
transactions to handle can use the program to transfer all data from 
the Update tape to a Main tape, which holds all transactions that 
have been made since the beginning of the financial period. This can 
be done periodically, say, once a week or once every month or two. 
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When transactions have been transferred to the Main tape, the 
Update tape loses those transactions and is then made available for 
the next 100 transactions. The great advantage of the Update tape is 
that it is quick to load and quick to save, so is ideal for daily use. 

As well as the Accountant program, there is a special Opening 
program. This is more likely to be of interest to business users, who 
want to begin each financial period with opening balances in the 
capital, equipment and cash accounts. Those who just want to start 
without opening balances do not need to key in or use this Opening 
program. 

The Accounts program displays or prints ledger accounts in the 
familiar format of double-entry book-keeping. With the Main file 
loaded, it can produce a trial balance covering all the ledger 
accounts. This takes over what must be one of the worst and most 
tedious of book-keeping chores. Once the trial balance has been 
produced by the computer, it is a relatively easy task for the user to 
work on the information it contains to produce a trading account, a 
profit and loss account, and a balance sheet. 

The program incorporates the option of sending the output to a 
printer. It is written for use with the Commodore VIC-1515 printer, 
though it may readily be modified for use with other printers. The 
program has been designed to do as many useful things as possible, 
and to handle data efficiently and as fast as possible. The input 
routines are designed to make it difficult to make mistakes when 
using the program. The result is that this program is by far the 
longest in the book. This is inevitable if it is to do its job properly. 
But the program has been written in modular form so that if, for 
example, you do not need to undertake trial balances, or record 
data on a MAIN tape, you need not key in the parts of the program 
which provide these facilities. 


How to use the program 

Three tapes are required: 

(1) The Program tape , carrying the Accountant program, and (if you 
are intending to use it) the very much shorter Opening program. 

(2) The Update tape , carrying the Update file. 

(3) The Main tape, carrying the main data file. For use in the home, 
you may be able to manage with the Update file alone, and will not 
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require the Main tape. A C 30 tape allows you to store about 1300 
transactions. 

You may also want to have additional Updateand Main tapes for 
back-up. 

Using the program 

Key in and save the Opening program (if required) and as much as 
you require of the Accounts program (see section on Variations). 
Label another tape (or two) ‘Update’. Later you may need one (or 
two) tapes called ‘Main’. 

The program is so flexible and the needs of potential users so 
varied that there are many ways of using the program. The 
instructions below are written so that you can find your way from 
one section to another with the minimum of difficulty. You need 
read only those sections which are of interest to you at the moment. 
Figure 1.1 is a User flow-chart which is intended to help you find 
your way from one operation to the next. The lettered boxes in the 
chart correspond with the lettered sections in the instructions. 

©ALL USERS START HERE: First decide whether or not you 
want to begin your account with opening balances. Home users will 
probably prefer the accounts to begin with nothing in them. The 
business user will probably want to enter opening balances. If you 
do not want opening balances continue to section(B).lf you want 
opening balances, continue to section(c). 

(b)NO OPENING BALANCES: Run the Accountant program. As 
this is the first time of using the program and nothing is recorded on 
your Update tape, key N when you are asked ‘Update tape ready?’. 
The screen then displays the Menu. This shows you all the options 
that the program provides. The only option which you can use is 
option 3, ‘Open new account’. This is displayed in white. Throughout 
the program the Menu always shows all options (as a reminder of 
stages you may proceed to later), but you can select only those which 
are highlighted in white. 

Key 3, and you are next asked the name of the account which is to 
be opened. Type in the name, using the keyboard as though it were an 
ordinary typewriter. Press one of the SHIFT keys when you want 
capital letters. Press the RETURN key when you have finished 
typing in the name. Account names may have up to seven letters. If 
the account has a longer name, the program takes only the first seven 
letters. Before the new account name is registered, it is displayed 



Accountant 


9 



Fig. 1.1. User flow chart for Accountants. Letters in circles refer to lettered 
sections of the instructions. 

(shortened to seven letters, if it was longer). You are then asked to 
key Y if you accept this, or N if you do not. This gives you a chance 
to alter the spelling or to choose a more suitable shortened form. If 
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you type N, you are asked to type in the name again. If you type Y 
you are returned to the Menu. Instead of a name you could type in a 
numeric or alphabetical code as the account name. Note that, later, 
should you type an account name which has already been opened, 
the computer informs you and will not open a second account in that 
name. Also, it warns you when you have opened nearly the 
maximum number of accounts. 

When you have opened two or more accounts, further options 
become available, as described in section^). 

©STARTING WITH OPENING BALANCES: Before loading 
the program, work out on paper the amounts of your opening 
entries (see Table 1.1). If you are starting a new business or other 
enterprise, the amounts to be accounted for will come under three 
headings: 

In the Cash account', if you have money in the bank this is a debit on 
the opening balance. If you start with a bank overdraft this a credit 
on the opening balance. Remember, a debit is a sum which is owed 
to you. When you put money in the bank, the bank then owes you 
that money. 

In the Equipment account : the value of equipment, stock or other 
items which you already have when the business is started. This is a debit 
item, in the sense that you might later sell part of the equipment, 
and the money for this sale would be owed to the business. 

In the Capital account : this must equal the total of the opening 
balances of the Cash and Equipment accounts. It represents what 
the business owes to the proprietor or those who have lent money to 
start the business. Table 1.1 will help you decide if this is a credit or 
debit balance. 

RUN the Opening program. You are then asked for the date (of 
opening the accounts), the account names, the opening amounts and 
whether they are C)ebits or Credits. Section(.N)explains how to 
enter dates; section(p)explains how to enter amounts. 

After each account has been opened you are asked ‘More?’. Key Y 
to open another account; key N when you have finished. In case your 
business requires it, you are able to have up to 10 accounts. On 
pressing N, you are asked if the Update tape is ready. Put the tape in 
the Datassette, rewound to the beginning of the magnetic part. Key 
Y when ready, then press ‘RECORD’ and ‘PLAY’ buttons on the 
Datassette when asked to do so. Recording takes only a few tens of 
seconds. 

©STARTING ACCOUNTANT PROGRAM: Now LOADand 
RUN the Accountant program. You are first asked ‘Update tape 
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Table 1.1 Basic examples of opening entries 


OPENING ENTRIES 

ASSETS 

LIABILITIES 

Equipment 

Cash 

£ 

1500.00 

700.00 

£ 

Balance c/d 
to Capital a/ c 

2200.00 




2200.00 

2200.00 


The opening balances of the Equipment account and the Cash 
accounts are debit. The opening balance of the Capital account is 

credit. 



OPENING ENTRIES 

ASSETS 

LIABILITIES 

Equipment 

£ 

1500.00 

£ 

Cash 

300.00 

Balance c/d 


1200.00 

to Capital a/c 

1500.00 

1500.00 

The opening balance of the Equipment 

account is debit. The 

opening balances of the Cash account and the Capital account are 

credit. 



OPENING ENTRIES 

ASSETS 

LIABILITIES 

Equipment 

Cash 

£ 

348.50 

£ 

1255.00 

Balance c/d 
to Capital a/c 

906.50 



1255.00 

1255.00 


The opening balances of the Equipment account and the Capital 
accounts are debit. The opening balance of the Cash account is 
credit. 
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ready?’ Rewind the Update tape, and key Y. Press ‘PLAY’ (only) 
when asked to do so. Your opening balances will then be read into 
the computer’s memory. As soon as this is done, the screen displays 
the Menu. Continue to section^^t 

(^E)uSING THE MENU: The menu invites you to choose between 
six options at this stage. The ones you can use are displayed in white. 
After you have finished using any option, you are returned to the 
Menu to select another one. The options work as follows: 

(1) Display account: A list of the accounts’ names or codes is 
displayed and you are asked to choose any one by typing its number, 
as listed. The account is then displayed, showing the opening 
balance (if any), every transaction and its date, and amounts debited 
or credited. If there are more than 20 transactions in the account, the 
display stops when the screen is full. Press the space-bar to view the 
next 20 transactions. 

Home users may be unfamiliar with terms such as ‘credit balance’, 
‘trial balance’ and ‘double-entry’ accounting. The essence of this 
accounting system is that money always comes out of somewhere 
and goes into somewhere else. We need an account out o/ which 
money is taken (this account is credited) and an account into which 
the money is paid (the account which is debited). For example, if you 
pay the baker for a loaf of bread, you need an account called Baker’ 
and an account called ‘Cash’. The Baker account is debited with the 
cost of the loaf, while the Cash account is credited with the same 
amount. These two operations are performed together by the 
computer when you use option 2. If you now display both accounts, 
they look like Fig. 1.2. A typical domestic account would look 
like Fig. 1.3. You have to open an account for each different 
kind of item you spend money on. This makes it very easy to 
check just how much you spend with people such as the butcher, 
the baker and the electricity board. The program can hold up to 
eighty different accounts, so allowing you to analyse your 
expenditure in detail. However, there are some items which could be 
grouped together under one main heading. For example you would 
not want separate accounts for shoes, socks, jeans, and hats, but 
would charge all of these to a single account called Clothing. 

(2) Transaction. A numbered list of account names is displayed. You 
are asked to key in the number of the account which is to be credited 
(i.e. the account out of which the sum of money is to be paid) and the 
number of the account to be debited (i.e. the account into which the 
money is to be paid). You are also asked the date of the transaction 
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Recount 'name- : Cash 



Date Details. 

Debit 

Credit 

08/06 Baker 

Balance c/d 

0.00 

3.45 

3.45 

0.00 


3.45 

3.45 

Account name : Baker 



Date Details 

Debit 

Credit 

08/06 Cash 

Balance c/d 

3.45 

0.00 

0. 00 
3.45 


3.45 

3.45 


Fig. 1.2 Amounts paid from one account always appear in another account. 


Account 

name Cash 



Date 

Details 

Debit 

Credit 

@5/08 

H'kPinS 

50.00 

0.00 

05/08 

Dairy 

0.00 

3. '6 

06/08 

Garden 

0.00 

5.10 

08/08 

Baker 

0.00 

3.45 

08/08 

Grocer 

0.00 

25.63 

11/08 

TV 

0.00 

3.95 

11/08 

Butcher 

0.00 

9.48 

12/08 

H'kP in9 

50.00 

0.00 

13/08 

Dairy 

0.00 

3.56 

13/08 

Car 

0.00 

S. 25 

15/08 

Baker 

0.00 

2.96 

16/08 

Grocer 

0.00 

22.31 

18/08 

TV 

0.00 

3.95 

18/08 

Butcher 

0. 00 

7.95 


Balance c/d 

0.00 

0.15 



100.00 

100.00 


Fig. 1.3. A typical domestic account. 

(see section(N)). If your accounts begin from January of each year, 
enter the day of the month (‘01’ to ‘29’, ‘30’ or ‘31’) followed 
immediately (no space or punctuation) by the month number (‘01’ to 
‘12’). If your accounts begin in some other month and you want to 
keep accounts for a whole year, enter ‘01’ for the first month in your 
accounts year, ‘02’ for the second month, and so on. Transactions 
should be entered in order of date. 

(3) Open new account: As explained in section(B). 
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(4) Print account: This does exactly the same as option (I), except 
that the account is printed by the VIC-1515 printer, instead of being 
displayed on the screen. 

(7) All accounts to main tape: This loads all the data (if any) from the 
main tape and then saves it back again on to the tape, together with 
all the data currently in the computer’s memory. Use this option if: 
(a) you have 90 or more transactions on the Update tape. The 
program warns you when you reach this number. Or (b) you want to 
see transactions earlier than those on the Update tape. Or (c) you 
want a trial balance of the accounts. 

The way to use this option is described in section (h). 

(8) Finish: It is essential to use this option at the end of every session 
of using the program. If you simply switch off. all data entered during 
the current session is lost. The way to use this option is described in 
section © 

© FINISH: Put the rewound Update tape in the Datassette 
make sure that it is not rewound back as far as the non-magnetic 
leader. Key Y when asked 'Update tape ready?'. Press 'RECORD' 
and ‘PLAY’ when requested. Recording is completed in a few 
seconds. You are then asked ‘back-up?’. If you decide to do this, 
put another tape labelled 'Update’ in the Datassette. Alternatively, 
you can record the back-up on the same tape, immediately after the 
first recording. The procedure described above is then repeated. If 
you do not want a back-up, or when you have taken the back-up. key 
N. Then ‘Accounts finished’ is displayed. You have now left the 
program and can sw'itch off the computer, run Accountant again from 
the beginning, or load and run other programs. What to do on the 
next occasion is described in section ( 5 ) 

(G) NEXT TIME OF USING UPDATE: Load and run the 
Accountant program. Key Y when you are asked ‘Update tape ready?’. 
Put the rewound Update tape in the Datassette. Press‘PLAY’when 
asked to do so. In a few moments, loading will be complete, and the 
menu will be displayed. You will now be able to use the program as 
described in section(E). All accounts and transactions that were in the 
computer’s memory at the end of the previous session will be 
available again for you to work on. 

(@) ALL ACCOUNTS TO MAIN TAPE: This is option 7 of the 
Menu. The reasons for using this are listed in sectionf© option 7). 
When you select this option, you are asked ‘Have you already used a 
MAIN tape?’. Answer this with Y or N. Section(T)tellsyou what to 
do if you answer Y; go straight to section (k) if you answer N . 
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©LOADING DATA FROM MAIN TAPE: The computer is 
going to read all the data which is stored on the Main tape and store 
it in its memory. You will be able to examine this data when option 7 
is completed. You are asked to type in today’s date. Then you are 
asked ‘Main tape ready?’. Put the Main tape in the Datassette, 
rewound to the beginning. Key Y, then press ‘PLAY’ when asked to 
do so. 


©SAVING DATA TO MAIN TAPE: The computer is going to 
transfer to the Main tape all the account details (names and 
transactions) that are at present in its memory. If you have already 
used a Main tape, the data which has just been read from this 
(section(©) is now put back on to the tape. It is followed by other, 
more recent, data. Some of these may have come from the Update 
tape, other data may have been typed in by you during this session. 
You are asked to type in the date on which this is being done (see 
section^y). Then you are asked ‘Main tape ready. REWOUND?’. 
When you first use a Main tape it will probably be rewound already. 
Put it in the Datassette, making sure that it is wound past the non¬ 
magnetic leader. Key Y, then press ‘RECORD’ and ‘PLAY’when 
asked to do so. When the data has been recorded, you are returned 
to the Menu. Continue with section(T). 

(l)Now you have returned to the Menu, you will notice some 
differences compared with section(Ey Options 2 and 3 are no longer 
available. If you want to enter more transactions or to open new 
accounts, you must select option 8, Finish, as described in section 
(m). Your main reason for loadingfrom the Main tape is probably to 
see t he accounts from the beginning of the financial year, or to perform 
a trial balance. The options for the latter are now available, as can 
be seen from the fact that they are displayed in white. In all, you now 
have 6 options: 


(1) Display account: This works differently from the way it did in 
section (i). Now you can display the whole of an account from the 
beginning of the year, or can display any required part of it. You are 
shown a numbered list of accounts, as before and asked to select one. 
Then you are asked ‘From which date?’. Accounts are always 
displayed from the beginning of the month, so just type in the 
number of the month. You are also asked ‘To which date?’. Type in 
the number of the month to the end of which you want the account 
to be made up. The displayed account begins with the Opening 
Balance (if any) and ends with a balance carried down on the last 
date of the period requested. 
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(4) Print account: as in option 1, but with output to the printer. 

(5) Display trial balance: This covers the whole financial period, 
showing the final balances in each ledger account (Fig. 1.4). 
Accounts which finish with a zero balance (for example, a petty cash 
account) do not appear on the trial balance. 

Trial Balance 


fl/C no. 

Name 

Debit 

Credit 

1 

ESuiPmt 

1300.00 

0.00 

2 

Cash 

844.32 

0.00 


Capital 

0.00 

2200.00 

4 

XY2 Ltd 

0.00 

600.00 

3 

Browns 

0.00 

696.03 

6 

ABC Co 

0.00 

17.32 

7 

Vehicle 

49.28 

0.00 

8 

VRT 

173.82 

0.00 

9 

Bank Ch 

13.73 

0.00 

10 

Phone 

78.77 

0.00 

12 

Wa9es 

233.30 

0.00 

13 

Salary 

300.00 

0.00 

14 

Fuel 

116.23 

0.00 



3313.35 

3313.33 


Fig. 1.4. This is the trial balance of the accounts which are displayed in the 
photograph at the beginning of this chapter, using the first opening entries 
of Table 1.1. 


(6) Print trial balance: as option 5. but with output to the printer. 

(7) All accounts to Main tape. This option allows you to take a back¬ 
up copy of the Main Jape. If you choose this option you save the data 
again, as in section^K). 

(8) Finish: The way this works is described in section(\l) 

(m) UPDATE RECORDING FOLLOWING A MAIN RE¬ 
CORDING: When you selected option 7 (section(K.)). the up-to- 
date balance on each account was calculated. In option 8, when 
you save data to the Update tape, it receives just these balances, 
plus a list of the names of the accounts. 

Saving the data follows the usual procedure. Then the program is 
finished. 

The next time you run the program you will follow the 
instructions as in section © The only difference is that when you 
display an account you will see only a ‘Balance brought dow n' at the 
start of each acco_unt. This will be dated according to the date 
entered in section © or ©when you transferred all accounts to the 
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Main tape. From now on, only the transactions which you type in at 
the keyboard will be displayed or printed. If you want to look back 
to earlier transactions, you should select option 7, and use it as 
described in section (h). 

(n) TYPING DATES: The format used for dates requires four 
figures: 

DDMM 

where DD are the figures for the day of the month and MM are the 
figures for the number of the month. Thus 1st April is represented by 
‘0104’, and 21 November by ‘211 T. If your accounting year does not 
begin on 1st January^vou may number the months differently, as 
described in section (e). 

Although the program does not prevent you from entering 
imaginary dates such as 31st February, it does check that the days 
are not more than 31 and the month is not more than 12. If you get no 
response when a date is typed in, you have probably typed in an 
illegal date. Type the correct version on top of the incorrect version. 
The DELETE key can be used to remove excess digits. 

When an account is displayed from one date to another (see section 
©' ,The date of the balance carried down is given as the first day of the 
month following the final month of the period requested. If you 
request a display which covers a period ending with the twelfth 
month, the balance carried down date is ‘1 13’. This indicates that 
this is a balance carried down to the beginning of the next financial 
year. 

^P)TYPING AMOUNTS: Sums of money are entered as: 

up to five digits, for the pounds, 

a full stop (point), 

two digits, for the pence. 

There is no need to press RETURN after entering the second pence 
digit; the program continues immediately. If you have entered 5 
‘pounds' digits, the program will not accept anything other than a 
full stop, then the two ‘pence’ digits. Examples of acceptable 
amounts are: 

30305.45 

555.06 

67.00 

The largest sum that can be entered is £65535.99. If you try to enter a 
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sum larger than this amount, the computer will wait until it has been 
overtyped to correct the error. 


At the end of the year 

After a year (perhaps sooner, if you have a business with many 
transactions daily and the Main tape is getting full) you need to bring 
the accounting period to an end. This is the time to take the final 
trial balance. This gives you a list of the balances on all your Ledger 
accounts. From this, you can quickly prepare your Trading Account, 
Profit and Loss Account and Balance Sheet, by transferring these 
figures into the conventional format for these accounts. When 
transferring figures balances of similar ledger accounts are 
amalgamated. You are then ready to start the new year, by carrying 
down the balances of the Cash account, the Equipment account and 
the Capital account, using the Opening program as described in 
section^) The opening balances of the Cash and Equipment 
accounts are those brought from the previous year (or financial 
period). The Capital account opening balance must equal the sum of 
these two plus the Net Profit of the previous year, as shown on the 
Profit and Loss account. 


Getting out of trouble 

Although care has been taken to make it difficult, or even impossible 
for the computer to accept incorrect entries, there are still occasions 
on which you may press the wrong key by mistake. The hints below 
will help you recover without upsetting the program: 

(1) You keyed options 1, 2, or 4 and then found that the account you 
thought had been opened had not already been opened. Key0 when 
asked for the account number required. This takes you directly to 
option 3, to open the ‘missing’ account. 

(2) You have keyed option 3 in mistake for one of the other options, 
and have no new account to be opened. Type the name of an 
account which you know is already open. The computer will then tell 
you that this account is already open and send you back to the Menu. 

(3) You have made a mistake in entering details of a transaction and 
it is already on the account concerned. There is no way of deleting 
transactions from the accounts. Instead, follow the usual book- 
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keeping practice of making a ‘contra entry’. For example, if you 
entered a payment of £25.45 from the cash account to the fuel 
account, when it should have been £25.54, proceed as follows. Make 
a payment of £25.45 from the fuel account into the cash account (this 
is the contra entry). Then make a payment of the correct amount 
(£25.54) from the cash account into the fuel account. 

(4) You accidentally press the RUN/STOP key and halt the 
program. Key in GOTO 250 and press RETURN. This will take 
you back to the menu without loss of data. 


Keying in 

The listing is in text mode, so that the messages appear as they will be 
displayed on the screen. Before beginning to key in the programs, 
press the C = key and SHIFT key together so that the BASIC 
program appears in lower-case letters. Take particular care with the 
colons and semicolons, for errors with these can ruin the display. 
Before running the Accountant program check the data very 
thoroughly, for it contains the two machine code programs used for 
transferring data to and from the Main tape. 

Control characters used are: 

OPENING 

CLEAR: lines 30, 360 
CTRL/2: line 30 

CRSR DOWN: lines 40, 80, 250, 320, 360 
CRSR UP: lines 50 (3), 60 (3), 70 (3) 

CTRL/REV ON: line 100 
CTRL/REV OFF: line 100 
CRSR LEFT: line 100 (9) 

Unlisted TEXT: line 30 (after the q) 

ACCOUNTANT 

CLEAR: lines 20, 250, 400, 600, 610, 830 (1,1), 1000, 1210, 
1600, 1830 

CTRL/2: lines 20, 250, 410 (1,1), 420 (1,1), 610, 820, 830, 1000, 
1830,1840,2500 

CRSR DOWN: lines 20 (2), 250-330, 340 (4), 440, 600 (2), 610 
(2,1), 660 (1,3), 670 (1,3), 680 (2), 690 (2), 1340, 1370 (2,3), 
1600 (2), 1610 1640, 1650 (2), 1710 (2), 2150 
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CTRL/4: lines 440, 670, 690, 830, 1210, 1650, 1830, 1840 
CRSR UP: lines 450 (3), 490 (2), 520 (2), 1040 1060 (2 each), 
1420 (2), 1440 (2), 1460 1480 (2 each) 

CTRL/5: lines 600, 680, 1710 
CTRL/REV ON: 1490 
CTRL/REV OFF: 1490 
CRSR/LEFT: 1490 (9) 

Unlisted: 

TEXT: line 260 (before ‘Display’) 

C=/7: lines 340 (after ‘q’), 410 420 (2 each inside the “”s), line 
2150 (after the first “), lines 2510-2530 (1 each inside the “”s) 


Program designs 

OPENING 

20 30 initialising. 

40 70 date input routine. 

80 90 input account name. 

100-200 amount input routine. 

210 240 credit or debit? 

250-280 confirmation. 

290 310 formatting data in U$ ready for recording. 

320 380 more or record? 

390-500 saving to tape. 

ACCOUNTANT 

20-70 initialising and transferring machine code programs to 
RAM. 

80 240 loading from Update tape. 

250 340 Menu display. 

350 390 checking selection and directing to sections of the 
program. 

400-470 displaying list of accounts and asking for choice (used 
by options 1, 2 and 4). 

480 520 asking for limiting months (after Main tape has been 
loaded only). 

530-590 calculating balances brought down, using Main tape 
data from RAM; accounts display now proceed to line 1800. 
600-720 entering new account. 
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800-980 calculating and displaying or printing trial balance. 

1000-1110 loading data from Main tape (includes date 
checking routine at 1030-1060). 

1120 1170 transferring recent data from U$() to RAM, 
immediately after data just loaded from Main tape, then emptying 
U$(). Subroutine 4500 calculates current balances. 

1180 1195 saving all data in RAM to Main tape. 

1200-1380 saving data from U$(), balances from B() and 
account names from N$() on to Update tape; end of program at line 
1370. 

1400 1590 receiving details of a transaction; amount checking 
routine at 1490 1590. 

1600 1720 displaying details of transaction for confirmation 
before putting them into U$(). 

1800 2180 displaying or printing an account. 

2500 2550 subroutine for highlighting valid options on the 
Menu display. 

3000 3010 delay for examining warning messages before 
return to Menu. 

3500 3550 subroutine for converting a money value, M, in 
pence, to a string for use in displaying or printing accounts. 

3600-3630 subroutine for displaying or printing lines of an 
account. 

4000-4100 subroutine for converting 7 bytes of data stored in 
RAM to a string ready for use by the accounts routines. 

4500-4560 subroutine for reading data from RAM and 
calculating balances of all accounts. 

5000-5030 data statements containing machine code routines 
for loading and saving data to Main tape. 


The program (Opening) 


10 r~e-m oPenin9 balances ** 

20 n=l :i"S=c;hr!t(13) 

30 PrinfSH" 

40 ir.Pu.fElDa.te <DDm)";dt 

50 if len<d*)<>4 then Print" KWOO" : Soto 40 
60 da*=left*<d*,2) : if val<da*Kl or vaU 
da.*>>31 then P r~ i nt " jaSSOO" : 9oto 40 
70 mo$=ri9ht$<d* ■ 2) : i-T val <mot)<l or- val 
<mo*)>12 then Print" jSIBIBJ" : 9oto 40 
©0 inPut"Z1Rccount name < 7 chars? " ; n#Cn> 
30 n*<n) = teft*<n*Cn> 7 > 

100 nk=0 : a.mS=" " :print"aRmount (Pounds. Pe 
nce)? 11 ;'"9 =a ■■■■■■■■■■".- 

110 Set : if a.*-"" then 110 


M >1 
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120 i t val<a$>*0 and a.#O M 0" a.nd a#<>”. " 

then 110 

130 1 t nk—5 and a.#0" . " then 110 

140 Phi nta* .■ : It a#=". " then 160 
150 am#»=am*-Pa# = nk=nk + l : if' nk<6 then 110 
160 nk=0 

170 3et a* if a#=" " then 170 

1Q0 if val <a#>=0 and a#O"0" then 176 

130 Printa#; : 3.mt=arn#+a.i nk:=nk. + l : if nk<2 


then 170 

200 i f v/3.1 < 3 . rn # > >6553500 then pr i rit " JSTBj'' : 9 
oto 100 

210 Print" " : Pr int"EIDPenin9 to a. 1 . Debit or 
Credit? <d/c) "7 


220 

9et to# : it 

to#— " " 

then 220 

230 

it b#0"c 

" and 

to#0"d" then 220 

240 

Pri ntto# 



250 

Pri nt ” 2TR X 

X ok ? 


260 

9et a.* : i t 

a#=” " 

then 260 

270 

it a#= ■' n " 

then 

30 

2©0 

it a#<>"y 

" then 

260 

230 

it to#= " cz " 

then 

u.# < n > — " 0 " -Pm i d# < str$ ■; in 


>,2)+"00":9oto 310 

300 u.* CnJ = "000"+mid^ Cstr* (n> j 2 x 

310 uiCn j=u.£<n>+d$+a.rn* 

320 Print"JI1ore? < 3 h"n 5 " 


330 

9et a.# : 

it a#="" then 330 


340 

n» 

it a#=" 

■3 " then n=»n-*- I P h i nt " 

*§'■ : -30to 

kS 1 

350 

it a#<> 

"n" then 230 


360 

Pr int'SEUPdate tape- heady? 

<yrn> " 

S?'© 

9et a# = 

it a#="" then 370 


380 

it a#<>"y" then 370 


— 330 

op en 1 .. 

1>1^"update” 


400 

Phint#1 

, n 


410 

Phint#1 

.. d# 


420 

tOh J = 1 

to n 


430 

Phint#1 

j 1e—10 7 h# 


440 

next 



450 

Phint#1 

.. n 


460 

Phint#1 

, r~# 


470 

tOh J = 1 

to n : Phintttl , u. # f J >r~# : next 

480 

tOh j = 1 

to n : P hint#1 , n #C -j }r~# : next 

—430 

cXos-e 1 



500 

end 
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The program (Accountant) 


10 r- em ** ac countant ## 

Ci-li, — rvT\, 20 Prinf'SHEBl" • Poke 52 .. 64 - P ok e 56 • 64 : z*“= 
1 Cowv " 0 . 00 " 

30 dim ui<100),n*<e0),b':80), j*(99) : r*»=ch 

h#< 1 3 > : l$=chr*C17) = P#=c:hh#c: 165 

40 ri# < 0 > = " Qp en i n-3 Ba 1 . " : ■Top' J =*0 to 63 '■ he 

ad x : Poke 16386+J ( x : next 

50 t op' J = 1 to 3 : J # < J > =str$ C J > : next 

60 for J=10 to 33 ; J*<J)=ri9ht$(str*CJ),2 

> : next 

7*0 •for' J=61 to ©0 ; n# < J ><=" " : next 

80 Print" up date taPe ready? <y>rO" 

30 9et a$: if a#="" then 30 
100 it a s #=» ,, n" then 250 
110 it «.*<>■■ a” then 30 
-120 op en 14,0 / "update" 

1 30 i nP u.t# 1 , n 
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140 1 TIP U.t4* 1 t dt# 

1 50 for J **= 1 to n : i nP u.t# 1 , to < J > 

160 if b<JJ«le-10 then b<J>=0 
170 next 

180 inPy.t#l,nu : if' nu.*=0 then 220 
190 for J = 1 to yVj. 

200 inPu.t#l,u*U) 

210 ne-xt 

220 for J = 1 to n 

230 lnPu.t#l .. n*< J 
-240 next : C 1 ose 1 y '"O'* Ff 
250 me=l = Print M MBEl" ; t-3.bC 12> ” ** RCCOUHTS 
**•’ = prl nttab < 16? " ======== " 

260 •3os.ij.to 2500 : Printtab<7> "31 DisPlas a. \3ovu 

ccount" 

270 9osub 2300 : Pr inttab<7? ” !12 T ranse.ct 1 Qou^vl. 

on " 

280 9o£ub 2300 : Pr inttab<7? " 2T3 OPen new Qouki 

accow.int" 

290 9osy.b 2500 : P r i nttab < 7 ) " ZI4 Print aoc CDuio 

OU.TTlt" _ 

300 9osub 2300 : P r~ 1 nttab < 7 >" 2T3 DisPlas t tCnju.K 

rial balance" 

310 9oaub 2500;Printtabi:7>"n6 Print ti~ i COu,£ 

a 1 toa 1 ance " 

320 9os-u. to 2500 : Pri nttab<7> M S17 nil accou. DOwJj 

nts to MAIN taPe" . , 

330 Prl nttab C7>" £18 Finish" OCwaj 

340 Pr inttab<2> "nSHEK Select toy P r-e-s-s-i n-3 IDDwtj 
mj.mfcoe-r'e-d key >" 

350 9et a* - 1 f a* : = , ‘" or val<a*)=0 or' wal< 
then 350 

360 a=val<a*> : 1 f n<2 and a<>3 then 350 

370 i f a”*3 and f=0 or a-=6 and f=0 then 3 

50 

380 1 f a i=2 and f =- 1 or a*“3 and f ■= 1 then 3 

30 

390 on a goto 400i 400.* 600 j 400 j 000i 800i 10 
00/1200 

400 Prlnt"a"J : for J — 1 to 20 

4 10 Pri nt " " i J * < J > ; " 53" ; n*= CJ), " i JtCJ +20 > 

" j n* < J +20 D UiwvtL 

420 print""; J*< J+40);"a";n*U+40)/ J*< tOVlirt 

j+60); "a";n*<j+60>; Unwrt. 

430 ne-xt : 1 f a*2 the-n 1400 _ . » 

440 inPu.t"®aRccOunt no. " ; na# CX'^vj \jou->io 
450 na«=»\ra 1 < na* > ■ if na>n tha-n PrinfMaDfl" : 5 0? 

goto 440 

460 if" na< 1 than 600 

470 If" f“0 then 1800 

480 inPu.t"Froro which month Cl-12)";smt 

490 sM»val <sm*> : i f s <0 or- ani>12 than Pr 
inf MW" : goto 480 Aw? 

500 ifsm<val(ri9ht$Cdt/25)andf»0thenPrin 
t"flccoant updated on"; let<d*/ 2> J 'V "j righ 
t*<d*^ 2? 

510 inPuf'To which month < 1 — 1 2 > " ; f~rn« 

520 fm«=va l < fmJ 5 : if" f'm<sm or f m> 12 then P 
rint" W : goto 510 a OP 
530 J = 16430 : b=*0 

540 if" PeekU+3)“>sm then 390 

550 if Peek<J)«na then b=b-<Peek< J+4?#25 
6+Peek < J+-5> )*100-Peek< J+6) 

560 if P e-e-k < j ■+■ 1 > “na then to=“to-+- K P e-e-k <. J +-4 > # 
256+Peek < J +-3 > )*100+Peek < j+6? 

570 J = J -+7 • if J >f a then 590 
580 Qoto 540 

590 S.n=* J—7 : nn=<f a— J— 6>/7+l = 9oto 1800 
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G-Q. fod ato' ,, s00 if ti“80 then Pnint" fnor e accoll 

nt s can be- opened" : 9oto 3000 
C+& CortiTi. €10 Print" SsraEETH h at is the name of the ne 

0 ou><< w aocounfc?2n" : inPut nS 

620 nS=n:ir-t-■■ " :n*=left*Cn* J ?) 

630 ff*=0 : for J 3 *! to n 
640 if n*=n*<J> then ff=l 
630 next 

Dgmi 660 if f f = 1 then Pr int"EiRn a.ccount in th 
3 Oou-.o is- name is a 1 ready oPenSEEi" : 3oto 2000 

Ofeww 670 Print"a Account to be opened, narfie 
•x^v, d= " :printtabC13>"E1^B^S ,, in* 

630 i f n>63 then Print" ■tfln 1 a 11 j 80-n i " mor-e 
accounts ai lowed. SBI" £+-■-'° 

Dfcw«J 630 Print " EElsa ok 2 C y 7n ? 

7-00 Set a*: if " then 700 

710 1f a*="a"then n=n+i : n#Cn>>=niP : fu^l 

720 -Soto 230 

300 if *-3 then 330 

310 oP en 3 4 : cmd 3 ; Print#3j l*P$"20Tr ial 

Be1ance" i r # 

S20 Prlnt#3jl$"R/C no. Name"iPt"41Debi 

t" ; P*"61Credita" ; r* : 9oto 840 
Cm* OifW 830 Print"SS»";taba3VTrial ba 1 ance" :pri 
nt"SSR/C Ho. Name";tab<20VDebit";tab(3 

0>"Credita" 

340 tb=0 : 9osub 4300 

350 for' J =■ 1 to n-m“«b<J> : if m«=0 then 330 
360 9osub 3500 : da$*= J*< J) : tr*"nt C j ) 

370 if m<0 then d*“z* : c$“mt : 9osub 3600 : -3 
oto 300 

380 if m>0 then ; c*“Z* : 9osub 3600 

390 tb=tb+m 

900 if a=6 then 930 

910 nl»ni+l;if nl<21 then 930 

920 n 1 =*0 : 9et a*: if a#0" " then 920 

930 next 

940 m—tb : 9osub 3500 

950 if -3.*= 5 then Printtab(20) "- - 

960 if a.=6 then Print#5, Pit"41-; P 

^ *1 g _„ _ ___ll 

970 da*="":tr*="":d*-m*:c*»m*:9osub 3600 
930 Soto 2140 

1000 Print"80" : if f—1 then 1180 

1010 Print"Have you. A 1 ready used a MAIN 

tape? <V7H>" 

1020 9*+t a#= if a*<> ,, M" and aSsO"^’ then 
1020 

1030 input "What is today's date <DDMMV; 
dt# 

1040 if lenCdt#)<4 then Print")HS" : 9oto 1 
030 

1050 if vameft*(dt*,2)Kl or- vaUleft* 

Cdt*i2>>>31 then Print"»Bfl" : 9oto 1030 
1060 if vaUrl9ht*<dt*,2)Kl or vaUri9h 
tttdttj2 > >>12 then Print"SW" :9oto 1030 
1070 If a#=*" n" then sa=16430 : 9otoll20 
1080 Print" MRIN taPe ready? <s7n)" 

1090 Set a*:if a*<>"y" then 1090 

1100 sys 163S6 : sy s 65511 

1110 sa=Peek <16385)*236+Peek<163845 + 1 : if 

nu—0then1180 

1120 forJ»1 to nu 

1130 ss=sa.+ < J — 1 "> >¥? ■ P ok e s s .■ v a 1 < left*Cut<! 

J > 2 > > ; P ok e ss-+ 1 j, va l Crni d# < u* <J)<3<25) 

1140 Poke ss+2 ; vaUmid* Cu* ( J ) , 3,25 ) : Poke 
ss+3,va1(mid*(u*<J 5 j 2 > 5 
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1130 Po=vaKi«ild*<u.*< J ) ^ 3 j len<ut< 

Poke- <s.s-+-4, lnt<Po/256) 

1 1 60 Poke ss+3. Po— int<Po/256>*23S : Poke a. 
S.-+-S-- val Cr i9ht*Cu<!< J > , 2 > > : next 

1170 for J = 1 to nu ; J^ next : 9osub 4 

300 

1 180 Fa=-3a+nu*7~l : nui—0 : f «= 1 : fu.»l : Pr 1 nt " 21 

Main tape ready .. REWOUND? <y^n>" 

1190 9et at^if then 1190 

1192 P6ke 16383.lnt<fa/236>:poke 16384,f 
a-int C fa/236> *256 

1193 s.ys 16416:sys 63311=goto 230 

1200 if f u.=0 then 137*0 

1210 Print" JS8JJP date taPe ready? Cyr'nJ" 
1220 9et ai= if a*<>"y" then 1220 
1230 oPen 1.1,1,"update" 

1 240 Pri nt# 1 .. n 

1250 if dt*="" then dt*= ” 00©0" 

1 260 Pri nt# 1 .. dt* 

1270 for J = 1 to n = if to<J>=0 then b< j ) = le 
-10 

1280 Print#l.b(J)ri = next 
1290 P r-i nt# 1 , nu. 

1300 Print#l.rl= 

1310 if" nu=>0 then for J = 1 to nu = F-rint#l 
, u.*< J > r~* ■ next 

1320 for- j = 1 to n = Printitl , n * C j )ri= = next 

1330 close 1 

1340 Print"£back-uP? <y^’n>" 

1350 9et a*=if a*="" then 1350 
1360 if a*="y" then 1210 
1 37*0 Print" JElRccounts f inishedZEEI" 

1380 end 

1400 inPu.t"Credited a7c no- " j n c * 

1410 nc“=va l < nc* > = i f nc< 1 then 600 
1420 if nc>n then P r~ i nt " JflSJ" = goto 1400 
1430 i nP u.t " Deb i ted a/c no- " ; nd$ 

1440 nd“vaUndt) = if nd<l or- nd>n or nd —n 
c then print"KM" = Soto 1430 

1450 input "Date CDDMM)"Jrj* 

1460 if len(d$K>4 then P r i nt " JSDSJ" = Soto 1 
430 

1470 da*=left$<d$.2) = if valCdaJKl or- va 

1C da* >>31 then Print" KDO" =9ot o 1450 

1480 no*=rightt(d$.2) = if valCmo*><l or-va 

1 C mo* >>12 then Print"MB" = -Soto 1450 

1490 nk =0 = am*= " " = P i-' i nt " Rmount (Pounds. P e 

nee>?" ; " , a a iBiaiaHiar j uu" 

1300 geta* : ifa*="" then 1300 

1510 if valCa*>“=0 and 4*0" 0" and 4*0". 

" then 1500 

132© if nk =5 and 4*0". "then 1500 
1530 Pri n ta* .= = if a*= " . "then 1550 
1340 am* = am*-*-a* = nk»nk + l = if nk <6 then 150 
0 

1530 nk=>0 

1360 9ot a* if a*=*"” then i 360 
157*0 if valCa*>=»0 and a*O"0" then 1560 

1580 Printa*.; = am#"an>*+a$ = nk=mk + l : if nk <2 
then 1560 

1590 if va 1 C am* > >6353600 then Print" JO" = 3 
oto 1490 

1600 Pri nt" SSfiatel I he transaction to toe ente 
r ed i s. = 

1610 Print"SlCredit account = " ; n* < no > 

1620 Print"ZTOebit account= ";ni(nd; 

1630 P r- i nt " EtDate = " J d* 

1640 P r i nt " EIRmou.nt = £"; 1 eft* C am* , lenCam* 

> —2 > l ". " right*Cam*, 2> 
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16S0 P r~ i nt " SEEK I s this- correct? ■CV/H) 1 ' 
1660 9et 3L*::i-r a.JtO " y " and a.»<> ,, n” then 
1660 

1670 i P a.^^’n" then 400 

1680 nu.^nu.-*-1 : IP leri<inc* ?*1 then ric* : =''0" + 

nc* 

1680 IP len<nd*>=l then nd«=" 0" +ndt 
1700 u # < riu. > =inc:*-*-ncJ*-*-c)*-»-«.<*>♦ 

1710 Pu=l : IP nu.>88 then Print" ■JOnly " ; 100 
—mil " transactions al lowed. JTBI” : 9oto 3000 
1720 Soto 2550 
1800 IP a = l then 1830 

1810 oPen 5 .• 4 : crmcJ S:prlnt#5^ l*"flccoant n 
a.r»e : " ; nJF < na > ; 

1820 Prlnt#3,l*"Hate Detalls";Pt"4 

lUeblt" ; PP’SlCredit" ; t~* : goto 1850 
1830 P r~ i nt " B#8t=lo:c:oui.nt name : g'SnJCna) 

1340 Print" ?KD ate Details"jtab<20)"Debl 

t " i tab C 30 5> " Cred i tST 

1850 n 1 =0 : IP P**0 then fc>=fco<na.> : nn=nu 

1360 IP fc>=0 then c=0 : d«0 : 9oto 1810 

1970 da*»" l/ ,, +smi! : trt»"Balance b/d" : IP P 

»0thenda*= l ePt* < dt*.. 2> + 'V"+rl9htJ<dt*, 2> 
1830 IP s9n(bJ=-l then d=0 : d*“z* : cr——to : m= 
<z. ■ 9osu.b 3500 : c 4 "m* 

1380 IP s9n<b)”«l then d«=0 : oS = z* : d=to : r"i=>d : 
9osutb 3500 : d#=m* 

1800 9osub 3600 

1810 Por J = 1 to nn 

1820 IP P=0 then <->*—u.* < J ? 

1830 IP P= 1 then Sos.u.to 4000 

1840 IP PP-1 then 2020 

1 850 c= r~=v a. 1 < 1 eft* < u.# j 2 > *> ■ dr=va l (ml d* < u.* .■ 
3.-2> > = m=val CmldtCa*- 8> > 

1860 da*=mld*<u*.. 5.- aj + 'V+mld^C'.'*, T , 

1970 IP dr^na then d»d+m : 9osub 3300 1 d#=m 

* : tr*«=n*<cr) : c**=*z# : 9osu.b 3600 

1980 IP cr=na then c»c+m : Qosub 3300 : ct=m 

* : trt=n*fdr) : : 9osu.b 3600 

1980 IP n—4 then 2020 

2000 IP nl<21 then 2020 

2010 nl=nl — 1 : 9et a.* : ip a.*<>" " then 2010 

2020 next 

2030 to»=c: —d : rn^to : S o s- uto 3500 
2040 bb=c '• i P d>c then toto = d 

2050 IP b=0 then 2100 

2060 tr*="Balance c/d”=da$="":iP P=1 the 
n da*<=" l/"+str*<Pm+n 

2070 IP s9n<b!)=-l then d* = z* — m3? 

2080 IP S9n<b5“l then d=£=m* : c:*“Z* 

2090 9oso.b 3600 

2100 IP a“= 1 then PrinttabC 19) "- 

2110 IP a.=4 then Prl nt#5 ,P*"41 -" 

P $ " 6 1____ii 

2120 da*= " " ; tr»>=" ■’ : rn=toto : 9os'J.b 3500 : 

:d^=m* 

2130 9osu.b 3600 

2140 IP a.=4 or a—6 then 2130 

2150 Print'll Press sP a.cce bar to return 

to Menu" 

2160 9et a* : iP a.® = " ” then 2160 
2170 goto 250 

*2130 Print#3:close 5 Soto 250 
2500 Prinf'SI" i 

2510 IP n<2 a.nd me<3 or n<2 a.nd me>3 the 

n Prlnt""; Soto 2540 

2520 1P P=0 and me=5 or P=0 a.nd me=6 the 

n Print"=Soto 2540 
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2330 if f =«■ 1 and m-=- = 2 or f = 1 Arid rn ■=-=3 the 

t*l P I" 1 nt " " 1 
2540 1 

2350 return 

3000 fork=l to 2000 : next 
3010 9oto230 

3300 m*= i nt C m-+- . 5 > '■ n$=str* : i dt < .. 2 

> 

3510 

3520 1 f lm=l then m*= " 0 . 0 " : 1 m=3 : t~<^t>j.r- 


r> 

3330 if lm=2 then " 0 . " -rm* : lm=3 : t~^tu.r~n 

3340 m*=«left*<ml:.. 1 m—2 "+ri9ht* 

3530 r-e tu.r-n 

3600 i f 3 =4 or- g.=6 then 3620 

36 10 Prl ntda* } tab < T > tr$ t a.b < 27 T — 1 e-n <C d^ > > d 
* tab(37-len<c$)>ct : return 

3620 prl nt#3 / 1 4Pda.*: .: 1 *chr$ < 48 > Chr* C 57 > t 

r—:®.: ptchr*C32)chr$<37-len(d$) > d* J 

3630 Prl nt#3 / 1 &P $chr* < 34 > chr < 37*— len( > 

)ct : r--e-tu.r~n 

4000 ff=0 : ss“sn+j#7 

4010 -rid^^r- 1 9hti C strt IPeek(ss) "> , 2 > 

4020 nd$=r 1 9ht* Cstr^CPeek <ss+l > ? .• 2> 

4030 i f va 1 < nc$ > Ova 1 < na.J ) and v a. 1 CndtK 

>val<na$> then ff=l : return 

4040 da*=r 1 Shit* <str$ (Peek (ss+2) > .• 2> 

4050 mot=rl9ht*(str*(Peek <s-s--*-3> > / 2 > 

4060 If val(mo*>>fm then ff=l ; return 
4070 Pe$ = str*i;peek <ss + 4)#25600+Peek (ss+5 
)*108+Peek < ees-t-6 > > 

4030 Pei=rl9ht*<Pe* j len(Pe$5-l) 

4030 u*= t nc* : - , -rid*+daS+moi : +F' eS 
4100 return 

4500 for- J = 1 to n : b < J > =0 ; next 

4310 for J = 16450 to fa-6 ste?P f 

4520 b < P *=-e-k < J > > =b < P eeeek < J > > — <P ■=<==■k < J+4)#25 

6-t-Pe-e-t< < J+5> )#100-Peek < j-t-6? 

4530’bCPeek < J •+• 1 ))=b<Peek < J +■ 1 > ) + <Peek < J+4 
? #256+Peek < J -»-3 > >*1 00+p e-e-k < 4+6> 

4540 next 

4550 for- J = 1 to n '• b < J > = i nt (b< J > > • ne-xt 
4560 return 

3000 data 1 63 .*1/1 62 1 1 60 / 235 .■ 32 / 1 36 .* 255 

,169,0,32,189.255 

50 1 0 data 1 63 .-0/1 62 ^ 66 / 1 60 / 64 .• 32 .* 213.- 253 
. 142/ 0/ 64, 140, 1/64,96 

5020 data 1 63 / 1 • 1 62 / 1 / 1 60 .• 1 / 32 / 1 36 .• 235 / 1 
63 / 0 / 32 .. 1 33 / 255 / 1 63,66/ 1 33 

5030 data 231/169/64,133 / 252/ 174.. 0/64.. 17 
2,1,64 j 163/ 251 32/ 2 16/ 255 / 36 


Variations 

A program which is so closely interwoven as this one does not allow 
easy modification. However there are some sections which can be 
omitted if the user requires a less sophisticated system: 

The Opening program may be dispensed with entirely if you are 
beginning your accounting with zero balances in all accounts. 

The home user will probably not require trial balances, so lines 
800 to 980 can be omitted. Replace line 800 with: 
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800 goto 250 

This sends you straight back to the Menu should you accidentally 
select options 5 or 6. 

The small user, such as the person who prefers to keep accounts 
on a monthly basis, writing down the monthly balances in a 
notebook, can manage with only the Update tape. Option 7 is not 
then required. Change line 470 to: 

470 goto 1800 

Leave out lines 480-590, 1000 1195, and 5000 5030. In line 40 
leave out the loop ‘for J=0 to 63’ to the end of that line. 
There are also other small sections that can be omitted, but 
these are too numerous to list here. The routines for printing or 
displaying accounts and trial balances are combined for economy in 
program space, so it is a more intricate matter to leave out printing 
instructions should you not be using a printer. You can recognise 
lines containing printing commands from the print statements 
which are all begun ‘print#5\ Being able to print out accounts is a 
valuable asset. Even if you do not have a printer at present, it is 
possible that using this program will encourage you to obtain one. 
Therefore it is probably better to type in the printing lines ready for 
possible future use. 





2 

Pools Punter 



Fortunes have been won on the pools by people who just pick out the 
matches with a pin, or something equivalent. But it can be argued 
that you are more likely to find the winning combination by 
studying the past performance of the teams and using this 
iformation to predict the results of the forthcoming matches. This 
orogram stores data on hundreds or even thousands of past matches 
and uses it for pools prediction. It does all the hard work for you 
except the unavoidable task of keying in the data initially, though 
this is minimised by a special labour-saving and error-avoiding 
input routine. 

The program can produce its predictions on scores only, if you 
-ish. but there is also scope for you to vary its method of working 
out the results, depending on which other factors you think are the 
most important in forecasting. It also lets you adjust the rating of 
"dividual teams to allow for the effects of such events as the recent 
loss of a star player. 

When it has all been worked out, you may still like to have a bit of 
a gamble, so the program also provides a routine which simulates 
“the pin’, selecting ‘lucky’ matches purely at random. 
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This program assumes, of course, that the way a team has 
performed in the past is an indication of the way it will perform in 
the future. It cannot predict the unexpected. If you believe that you 
increase your chances of winning by studying past form, this 
program helps you do that more efficiently. 


How to use the program 

Before you can use the program for prediction, you need to 
accumulate data referring to previous matches. Each week for a 
number of weeks you key in the results, each result consisting of four 
items of information: name of home team, name of away team, score 
of home team, score of away team. The program stores this data on a 
cassette tape. One side of a C-15 tape holds data for about 4000 
matches and you can get over 8000 matches on one side of a C-30 
tape. If you follow the Australian teams too, it is better to use a 
separate tape for these, to reduce loading and saving time. Keying in 
the data can be done in short sessions if you wish. Week by week 
you can add the results of the latest matches and so gradually build 
up a reliable database from which the forecasts may be made. 

When the program is RUN you are asked ‘DATA TAPE 
READY?’. 

(1) The first time you use the program, or when you are starting a 
new results tape, key N, and the program goes on to display the 
Menu. 

(2) Once you have started using the program you will have a results 
tape carrying the data of previous matches which you have entered. 
Put this in the Datassette, rewound to the beginning. Then key Y. It 
may take a few minutes to load the data into computer, after which 
figures are displayed to show how many teams and matches are 
currently in memory. The maximum number of teams allowed is 256 
and maximum number of matches is 8192. If the figures displayed 
are near the maxima take care not to enter too many more teams or 
match results. Press the space-bar to see the Menu. 

(1) Enter match results: The way this option works depends on 
whether you have recently begun to use this program or whether you 
have been using it for a long time and have accumulated a large 
amount of data on the tape. 

(a) When you are using this program for the first time , no team 
names will be stored in memory, so you will have to type the whole 
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team name as you key in the results of each match. The computer 
begins by asking you to type in the first two letters of the name of the 
Home Team. If the Home team is Barnsley, for example, type in 
‘BA’. There is no need to press RETURN. The computer 
immediately looks through the list of team names which it may have 
already stored in its memory. As it does this it displays the names of 
all teams which have a name beginning with ‘BA’, together with the 
number given to that team on the computer’s list. If there are no 
teams beginning with ‘BA’ no list will be displayed and you are then 
asked for the ‘TEAM’S FULL NAME’ Type this in - you are allowed 
up to 10 letters. If it is longer, use a shortened form, such as 
'HUDD’FIELD’, as on the pools coupon. Press RETURN, when 
the name will be displayed and you are asked to type Y if it is correct 
or N if it is wrong. If you type N, you are asked to type the name 
again. If you type Y, the procedure is repeated for the Away team. 
After this, you are asked to key in the number of goals scored by 
each team. Once again, you are given a chance to check that 
everything is entered correctly before the program continues. 

If a list of teams is displayed it might show Barnet, Bangor and 
Barrow, but not Barnsley. In this case, key in the number 0 to 
indicate that the team you want is not listed. You will then be asked 
to type its full name, as above. 

If you have already typed in Barnsley on an earlier occasion, it 
will appear on the list and all you have to do then is to type the 
number by which it is listed. So you never have to type in a team’s 
name more than once! 

(b) When you have been using the program for several weeks, you 
will have typed in most or all of the teams already. All you need to do 
when entering results is to type the first two letters of the name, and 
then its number on the list. This is much easier than having to type in 
the whole name, possibly getting it wrong. It avoids the possibility of 
typing errors and the risk of having the same team registered under 
three or four differently spelt names, such as ‘MAN UTD’, ‘MAN 
UNITED’ and ‘MNCR U’. 

Option 1 takes in the names and scores of both teams and stores 
them in memory. This data will follow after the data (if any) which 
has already been loaded from tape. 

When you have finished entering the results, press the space-bar 
and you are returned to the Menu to select another option. 
Incidentally, the program cannot be expected to predict anything 
unless it has data to work on. If you try to select options other than 
this one when no data has been loaded from tape or before any has 
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been typed in, you will find that the program does not respond to 
your choice. 

(2) Set factors: The program calculates a rating for all the teams 
based on one or more of the following factors: 

The Home team’s wins when playing at home. 

The Away team’s wins when playing away. 

Either team’s tendency to play a drawn match. 

The Home team’s scores when playing at home. 

The Away team’s scores when playing away. 

The result of any previous match between the same two teams 
playing at the same venue. 

You may think that certain of these factors are more important 
than others, and even that some should not be taken into account at 
all. If so, option 2 gives you the chance to modify the prediction 
routine. If you do not want to use option 2, then all factors are taken 
into account equally. 

Select option 2 and enter a number between 0 and 9 for each 
factor, when asked to do so. If you enter 0, that factor is ignored 
altogether in making predictions. A 9 gives a factor the maximum 
effect. You can return to this option after you have seen the predictions, 
and change the factors to see what effect this has when new predictions 
are made. The setting of factors is lost when the program is finished, 
so you need to set them afresh each time the program is RUN. 

(3) Adjust teams: Quite often you may have information about some 
of the teams leading you to expect their performance to be better or 
worse than usual. There may be the transfer of a player, or perhaps 
they are simply in a bad patch at the moment. This option lets you 
feed this information into the prediction. You are asked the name of 
the team, as in option 1, and then asked to key in a figure between 
-20 and +20. If you type ‘-20’, the team’s rating is reduced to 80% 
of its normal value before being used in the prediction. Similarly, 
typing in ‘20’, increases its rating to 120%. Figures between—20 and 
20 have proportionate effects. Do not type the *%’ sign; if you do, 
you will see the message ‘REDO FROM START’, in which event 
simply type the figure again, without the ‘%’. Team adjustments are 
lost when the program is finished, so should be made each time the 
program is RUN. 

(4) Predict results: You must now provide the computer with the 
names of the teams which are to play against each other in the 
forthcoming matches. First you are asked ‘MATCHES FOR 
PREDICTION ALREADY ENTERED?’. Unless you have already 
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used this option on this occasion, key N. You are then asked to enter 
the names of the home and away teams, match by match. The easiest 
plan is to enter them in order, as on the current Pools Coupon. As in 
option 1, you usually need key only the first two letters of the name, 
and then the number from the list displayed. If a team is playing 
which is not already registered, you type in its full name at this stage, 
and it will then be registered. Up to 128 matches may be keyed in for 
prediction at one time. When all matches have been entered, press 
the space-bar. If there are many matches, prediction takes several 
minutes. The program will not allow you to obtain a prediction 
when only a single match has been entered. 

The first display shows the 15 matches most likely to result in a 
home win. The matches are listed in order, the nearer the top of the 
list, the more likely the result is to be a home win. The values 
displayed on the right show you the relative ratings of each match. 
The higher the rating the greater the chance of a home win. If you 
want 10 home wins, for example, take the first 10 matches listed. 
However, if you fancy one of the matches lower down in the list, the 
ratings will give you an idea of how far below the ‘top ten' your fancy 
lies. Pressing the space-bar causes the display to change to show the 
15 matches most likely to result in an away win. Once again, for the 
most likely away wins, take matches from the top of the list. Here the 
matches usually have negative ratings. The more negative the 
number, the more likely the result is to be an away win. Pressing the 
space-bar next takes you to a list of 15 matches most likely to draw. 
The ratings range around zero, from small positive values to small 
negative values. Those nearest zero are most likely to be drawn 
matches. If you want 8 draws, for example, pick 8 matches from the 
centre of the list, including all those with zero rating if possible. 
Press the space-bar when you have looked at the draws list; you are 
then given the choice of pressing the space-bar to look through the 
lists again, or any key to return to the Menu. 

If you wish, you can go to options 2 and 3 and then return to 
option 4 for new predictions based on the changes you make. There 
is no need to enter the matches again; just key Y when you are asked 
•MATCHES FOR PREDICTION ALREADY ENTERED?’. 

(5) Lucky draw: This option is for those who like to gamble. Possibly 
you might win more by using this option - who knows? Provided 
that 10 or more matches have already been entered under option 4, 
this option selects 10 matches at random, and displays the details. 
You may find that some matches are picked twice, so there are not 
necessarily 10 different matches on the list. If you want more 
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matches, select this option a second time. 

(6) Finish: When you leave the program, all matches, including the 
newly entered ones must be saved to tape. About 24 kilobytes of 
memory is set aside for storing data, which is held in a compact 
form. This means that the results of over 8000 matches can be held at 
one time and used for predictions. It is essential not to finish the 
program simply by keying RUN/STOP or switching off the power. 
When you want to finish with the program for the time being select 
option 6. You are then asked ‘DATA TAPE READY?’. Rewind the 
data tape to the beginning, then wind it on so that it is the magnetic 
tape, not the non-magnetic leader, which is against the tape head. If 
the tape counter is set to ‘000’ when the tape is fully rewound, run the 
tape on until it shows ‘005’. Key Y when you have done this; you will 
receive the prompt message ‘PRESS RECORD AND PLAY’. Press 
these two buttons on the Datassette. The complete list of team 
names and all match details will then be put on to tape ready for the 
next time. When this is finished, you are asked ‘BACK-UP?’ This 
gives you a chance to make a second recording of the data on 
another tape. It is a wise precaution to do this, especially if you have 
several seasons of matches on record. Key Y, when you will be asked 
to repeat the whole recording procedure as already described. 
Keying N ends the program. 


Keying-in 

Take special care with the numbers in the data statements (lines 
5000 5030). These are the machine-code program used for loading 
and saving from tape. Some lines are very long, and must be typed 
without spaces and using abbreviations (see Appendix D of the 
Commodore 64 User Manual). Control characters used are: 

CLEAR: lines 20, 220, 330, 400, 450, 800, 1210, 1550, 1580, 
1670, 2300, 2330, 2360, 2410, 2500, 2510, 2600, 3210 

CTRL/2: lines 20, 220,460,810, 1550, 1670, 2300, 2330, 2360, 
2520,2610, 3000 

CRSR DOWN: lines 70, 170 (2,2), 220, 230 290 (2 each), 450, 
460, 480 (2), 500 (2), 550 (2), 800, 810 (1,2), 890 (3), 1210, 
1230, 1260 (2), 1550, 1580 (2), 1640 (2), 1670 (2), 2300 (2), 
2330 (2), 2360 (2), 2410 (2), 2500 (2), 2510 (1,2), 2520 (2), 
2570 (3), 2600 (1,2), 2610, 2720, 2900, 2940 (2), 3000, 3100, 
3140 (1,2,3), 3220, 3230 


i 
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CTRL/4: lines 200, 300, 400, 450, 550, 800, 1210, 1260, 1640, 
2410, 2510, 2570, 2600, 2900, 2940 
CRSR UP: lines 310 (2), 470(2), 490 (2) 


Program design 


20-60 Initialising arrays and storing machine-code program. 
70 160 loading from data tape. 

170 200 displaying number of teams and matches loaded. 
220 330 displaying Menu. 

400 -580 enter match results. 

800 920 set factors. 

1200-1290 adjust teams. 

1500-2440 predict results. 

2500 2590 lucky draw. 

2600 2750 finish; saving data to tape. 

2800 2810 subroutine to get input. 

2900 2970 subroutine to display tables of predictions. 
3000-3260 subroutine for inputting names of teams. 
3500-3530 subroutine for reading scores from data stored in 
RAM. 

5000 5030 DATA statements containing machine code 
loading and saving programs. 


Points of interest 

Data is stored in two ways. The list of the names of teams is an 
array, T$() capable of holding up to 256 teams. The results of 
matches are stored directly in an area of memory specially reserved 
for this purpose. The POKEs in line 30 protect memory from 
address 16834 upward. Addresses 16834 to 16849 are used by the 
machine code programs. Addresses from 16450 up to 40959 are 
available for storing match results. Results are stored as three 
consecutive bytes: 

Number of home team (1 to 256) 

Number of away team (1 to 256) 

Scores of both teams 

The two scores are compacted into a single byte by multiplying the 
home score by 16, then adding the away score (line 540). They can be 
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recovered by ANDing with 240 for the home score (dividing the 
result by 16), and with 15 for the away score (lines 3510 and 3520). 
The limitation in this method is that scores of more than 15 goals 
have to be registered as 15 (lines 520 and 530 and 530). This slight dis¬ 
advantage has to be set against the great advantage of reducing memory 
requirements, tape length and loading and saving times by 25%. 

After 2 or 3 years, your data tape may carry so much information 
that you do not wish to retain the earlier records. The simplest, 
though most time-consuming method is to start a new tape, and type 
in the recent records again. However, it is not difficult to arrange 
that the earlier records are omitted when you save data back on to 
tape using option 6. Decide how many of the early records you wish 
to drop and multiply this number by 3, the number of bytes per 
record. Add 16450 to this to get the address in RAM from which you 
want saving to begin. Load the program and alter the data in line 
5020 and 5030 as described below, so that saving begins from the 
newly calculated address. For example, if you want to discard the 
first 250 matches, saving should start from 16450+750=17200. In 
hexadecimal, this is $4330. Split this number into two bytes and 
convert each to decimal: 

$43 gives 67 in decimal 
$30 gives 48 in decimal 

In line 5020, change the ‘66’ to the second of the above two numbers, 
‘48’. In line 5030, change the first ‘64’ to the first of the above two 
numbers, ‘67’. When you RUN the program, it operates in the 
normal way except that option 6 saves from the 251st match 
onward. This temporary change in the program is only for the 
occasion on which you decide to drop the early records. Do not 
change your taped Pools Punter program permanently, for you will 
want normal saving to operate the next time it is used. 

The program 

10 REM ** POOLS PUNTER mm 
20 PRINT'TaS" : 

30 POKE 52/64 : POKE 56/64 

40 DIM T#C256) > RX<256) * MX < 128/3) : R=16450 
; ^ 135 

50 FOR jr= 1 TO 6 : FXt JT > =5 : NEXT = FOR -J=l TO 
120 : RX< JO = 100 : NEXT 

60 FOR J=0 TO 63 = REFID X : POKE 16386+J/Xm 
EXT 

70 PRINT"* DRTR TRPE RERDV? CV/N5" 

00 GOSUB 2000 
00 IF R*="N" THEN 220 
100 IF RiO" V" THEN 30 
110 OPEN 1/1/0."TERMS” 

120 INPUT#1/T- IF T=0 THEN 140 
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130 FOR J=*l TO T: INPUT#1/T*<J) :NEXT 
140 CLOSE 1 

150 SVS 16386 '• R=PEEK< 16385))ts236+PEEK< 163 
84> 

160 SVS 65511 

170 PRINT" WHOJUST LORDED : WHA" 

189 PRINTTAB<15>T;"TERMS" 

199 PRINTTRBt1 5 > <R-16450)/3; "MATCHES" 

200 PR I NTTRB < 8 > ; " MMSk.<SPRCE ERR TO CONTI 
NUE>" 

210 GOSUB 2899 

220 PRINT"raoCW" ; TAB<9> " ** POOLS PUNTER 
i« 14* " 

230 PRINTTRB<13>"-SW" 

240 PRINTTflB(7)"15 ENTER MRTCH RESULTSWW 


250 PRINTTRB(7)" 2 > 

260 PRINTTRB<7)"3) 

270 PRINTT8B<7)"4) 

280 PRINT TRB<7>”5> 

290 PRINTTRB<7>“ 6 > 

300 PRINTTRBC2) ,, k< SELECT 

MBERED KEV > ":GOSUB 2800 

310 fl=VRLCR*3:IF R<1 OR R>6 THEN PRINT 
d":GOTO 300 

320 IF T=0 RND R>1 THEN PRINT"m":GOTO 3 
00 

330 PRINT"d" : ON R GOTO 400,800/1200,1500 
2500.. 2600 


SET FRCTORSXBO" 

ADJUST TERMSWWI" 
PREDICT RESULTSSW" 
LUCKS’ DRRWMW" 
FINISHWW1" 

BV PRESSING NU 


d 


400 PRINT"dLENTERING MRTCH RESULTS" 

410 V*="HOME" : GOSUB 3000 
420 TH=FT 

430 V*="8UHV":GOSUB 3000 
440 TR=>FT 

450 PRINT"3kM MRTCH BETWEEN ";T*CTH)" C 
HOME > RND " ■ PRINTTRB<2)T$CTR) i ” <RWRV> : " 
460 PRINT" 300 GORLS SCORED BV ”;T*CTH>; : 

INPUTGH* 

470 GH=VRL<GH*) : IF GH<0 THEN PRINT'TTT' :G 
OTO 460 

480 PR I NT "won GORLS SCORED BV " ; T* < TR > ; 

INPUT GR* 

490 GA=VAL<GA*>=IF GR<0 THEN PRINT ".TT 1 : G 
OTO 480 

500 PR I NT" WIW1 SCORES OK? CV/N) GOSUB 28 
00 

510 IF R#<>"V" THEN 450 

520 FS=1:IF GH>15 THEN GH=15 

530 IF GR>15 THEN GR=15 

540 POKE R,TH•POKE R+l,TR:POKE R+2,GH#16 
+GR=R=R+3 

550 PRINT" WWWCRNV KEV FOR MORE SPRCE B 
RR FOR MENU>" 

560 GOSUB 2800 

5?0 IF R*=" " THEN 220 

580 GOTO 400 

800 PRINT"3fc» SET FACTORS" : F0RJ=1T06 : FJSC 
J>=1:NEXT 

810 PRINT" a«J KEV 0 TO 9 FOR ERCH FRCTOR» 
30 " 

020 PRINTTRB<9>"HOME WINS ";:GOSUB 2800= 
FX< 1 >«»VRL<HS> : PR I NTTRB <28>FX< 1 > 

030 PRINTTRB < 9 > "RWRV WINS "; = GOSUB 2800- 
F5i<2>«*=VRL<AS> : PRINT TRBC28)Ffi<2> 

040 PR I NTTRB <9> " DRAWS " ; : GOSUB2800 : F3i < 3 > 
-VRL<R*> : PRINTTRBC28)FX<3> 

850 PRINTTRB<9>"HOME SCORES ";=GOSUB 280 
0:FX<4)=VflL<R*>sPRINTTRBC28>FX<4> 

860 PRINTTRB<9>"RWRV SCORES ” i : GOSUB 280 
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0:FX(5?-VRL<R#>=PRINTTRB<28>FXC5> 

688 PRINTTF)B<9) "PREVIOUS MATCHES " ; : GOSU 
B 2000 = FX < 6 > =VRL < R* > = PR I NTTRB < 28 > FX <6) 
000 PRINTTRBC4> " 3(SDQ)S1RI_L. OK? CV/'H)" 

000 OOSUB 2800 

010 IF R*="V" THEN 220 

020 GOTO ©00 

1200 FOR J*=l TO 128 = RX< J) = 100 = NEXT 
1210 PRINT'Tfcja RDJUST TERMS" 

1220 V*=»" " : GOSUB 3000 

1230 PRINT" WHRT ADJUSTMENT FOR MJCFT); 

"?M“ : INPUT"—20X TO +20X ";RDX 

1240 IF RDXC-20 OR RDK>20 THEN PRINT" TXT1 

"=GOTO 1230 

1250 RZ<FT) = 100+RD5i 

1260 PRINT"WMW<RNV KEU FOR MORE SPRCE 
BRR FOR MENU>” 

1270 GOSUB 2800 

1280 IF R*:<=" " THEN 220 

1200 GOTO 1210 

1500 FOR J=1 TO 128 

1510 FOR K=2 TO 3 

1520 MXCJ^KS^G 

1530 NEXT 

1540 NEXT 

1550 PRINT”daWMRTCHES FOR PREDICTION RLR 
ERDV ENTERED? CVXN}” 

1560 GOSUB 2800:IF R*= "V" THEN 16?0 

1570 NM=1 

1580 PRINT"21 PREDICT RE3ULTSMM" :PRINT"MA 
TCH NO ”;NM;V*=”HOME" 

1500 GOSUB 3000 
1600 MX(NM/03=FT 

1610 PRINT" MATCH NO " Jl NM : V*“"RURV " 

1620 GOSUB 3000 
1630 MXCNM,1>=FT 

1640 PRINT" XWkANV KEV FOR MORE SPRCE B 
RR^TO PREDICT" 

THEN NM=NM+1:GOTO 1580 
1670 IF NM<2 THEN 1 650 : PR I NT ” 235CMH1 TH I 

S MRV TRKE SEVERAL MINUTES!” 

1680 RS=16450=FOR J=1 TO NM 
1600 IF FXC1?=0 THEN 1760 

1700 MM/i=0 : MR?i=0 : FOR K = RS TO R —3 STEP 3 
1710 IF MX<J,0 >OPEEK < K > THEN 1740 
1720 GOSUB 3500 

1730 IF GHX>GRX THEN MRX=MRX+1 

1740 NEXT: IF MMX=0 THEN M5i< J. 2>=MX< J,2> + 

50*F<1>:GOTO1760 

1 750 MX (Jj 2) =MX <J,2> + 1 00*MRJi/MMX*F?i C 1 > 
1760 IF FX<2>=0 THEN 1830 

1 T’7’0 MM5i=0 : MRJi=0 : FOR K=RS TO R—3 STEP 3 
1780 IF MJi( J t 1 >OPEEK<K+l > THEN 1810 
1700 GOSUB 3500 

1800 IF GHX<GRX THEN MR7.*MR«+1 

1810 NEXT: IF MMK=0 THEN MX U,3)=MX CJ,3> + 

50#FC2> : GOTO1830 

1820 MX < J j 3>=MX< J, 3>-H00*MRXXMMX#FX<2> 
1830 IF FX<3>=0 THEN 1060 

1840 MMX=0:MRX=0:FOR K=RS TO R—3 STEP 3 

1850 IF MXCJ > 0)<>PEEK(K) THEN 1880 
1860 GOSUB 3500 

1870 IF GHX = GRX THEN MRX=MRX-+-1 

1880 NEXT: IF MMX = 0 THEN MX CJ, =MXCJ,2) + 

50»tfFC2> : GOTO1000 

1 800 MX C J j. 2 > =MX <C J .. 2 > +50* C 1 -*- < MMX —MRX > XMMX 
>*FK<3> 

1000 MMX=0:MRX=0:FOR K=RS TO R—3 STEP 3 
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1910 IF M/iCJi lJOPEHKCK+1) THEN 1940 
1920 GQSUB 3300 

1930 IF GH«=Gfl« THEN MR?i=MRK+1 

1940 NEXT: IF MMK=0 THEN MKC J, J, 3> + 

50#F<3) : GOTO1960 

1 950 MX < J , 3 > =MX C -J 3 > +50* < 1 - < MMX—MRfi > XMMX 
?*FX<3> 

I960 IF FXC4>=0 THEN 2030 

1970 THX=0 : TRX=0 : FOR K=RS TO R—3 STEP 3 
1980 IF MXCJ,0K>PEEKCK> THEN 2010 
1990 GOSUB 3510 

2000 THX=THX-*-OHX : TRX=TRX-t-GRX 

2010 NEXT: IF TRX-*-THX=0 THEN MX <-J . 2 > =MX < _T 
.. 2 > 4-5©*F <4): GOTO2030 

2020 MX <J;2) =MX <.-!.■ 2 > -+-THXX < TRX-*-THX > * 1 00*F 
X<4> 

2030 IF FX<5)=0 THEN 2100 

2040 THX=0:TRX—0 FOR K=RS TO R—3 STEP 3 

2050 IF MJi<J, 1K>PEEK<K+1) THEN 2030 
2060 GOSUB 3510 

2070 THX=THX+GHfi : TRX=TRX-*-GRX 

2030 NEXT : I FTR7.+THX=0THENMX O / 2>=MX<J, 2> 
+50*F<6):MX<J,3)=MX<J,3>+50#F<6)=GOTO220 
0 

2090 MX< J .. 3) = MX<J. 3>+TRfi/<TRX+THX)#100*F 
X < 5 > 

2100 IF FX<6>=0 THEN 2170 

2110 THX=0:TRX=0:FOR K = RS TO R—3 STEP 3 

2120 IF MX < J j 0)<>PEEK(K) OR MXCJ,l)OPEE 
K < K+1 > THEN 2150 
2130 GOSUB 3500 
2140 THX=THX4-GHX 

2 150 TRX=TRX-<-GRX 
2160 NEXT 

2170 I FTfl?i+THX=0THENMX < J * 2>=MX< J , 2>+50#F 
X<6> : MX <.J, 3 > —MX >C T .. 3>+50*FX<6> : GOTO2200 
2130 M?i<J, 2 > =MX < J , 2>+THX/<THX+TRX)#100HiF 
X<6> 

2190 MX<J/ 3 > =MX 3>-*-TRXX<THX+TRX>s*!100*F 

X < 6 > 

2200 NEXT 

2210 FOR J=1 TO NM 

2220 MX < J , 2 > =MX <J,2V1 00*KRX < MX < J , 0 > > -MX ■; 
J s 3>/l 00*RX < MX C jr > 1 > > : MX C Jj 3> = J 
2230 NEXT 

2240 FOR K=1 TO NM-1 
2250 FOR L-=K-H TO NM 

2260 IF MX(Lj2>>=MX<Kj2 > THEN 2290 

2270 EX=MX (L< 2 > : MX CL; 2)=MX<K, 2 > = MX<K.. 2 > = 

EX 

2230 EX—MX(L,3) : MX CL,3)=MXCK,3> : MX < K- 3 > = 
EX 

2290 NEXT:NEXT 

2300 PRINT" n^HOME Ul I NS : Wtefl" 

2310 X=NM:V=NM—15:IF V<1 THEN V=1 

2320 Z=-l = GOSUB 2900 

2330 PR I NT ■■ r3=«RWR V W I NS = MM" 

2340 S*1:V=15=IF V>NM THEN V=NM 

2350 2=1:GOSUB 2900 J=1 

2360 PRINT”2J=CDRRWS : KHfl" 

2370 IF SGN < MX < J .. 2 > 5 =— 1 THEN 3 = J-t-l IF J< 
=NM THEN 2360 

2330 X=J—7:IF X<1 THEN X=1 
2390 V=JT-t-7’:IF V>NM THEN V=NM 
2400 2=1 : GOSUB 2900 

2410 PRINT"3KW fcBNV KEV FOR MENU SPRCE 
BRR TO REVIEW" 

2420 GOSUB 2300 

2430 IF R$=" " THEN 2300 
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2440 GOTO 220 

2500 IF NM<9 THEN PRIHT"nWWi TOO FEW MRTC 
HES " ; FOR JT= 1 TO 3000 : NEXT ’ GOTO 220 
251© PRINT"^kJfl LUCKV DRAW: NW 

2520 PRINT" SUHTCH" ^ TRBC 1 0 > "HOME" ; TAB<25> 
" AWAVKWJ" 

2530 FOR 3 =1 TO 10 
2540 R«=INT<RNDU)i(iNI1) + l 

2550 PR I NTRfi ; TRB < 1 0 > T* C MX < Rfi ..&>>; TRB < 25 > 
T*(Mfi<RX, 1 > > 

25S0 NEXT 

2570 PRINTTnB<9)":«SWk< SPACE BAR FOR MEN 
U >" 

2580 GOSIJB 2300 
2590 GOTO 220 

2600 PRINT"nkJfl FINISHNW" 

2610 PRINT" =CW DATA TAPE RE AD V? CV/N}" 

2620 GOSUB 2300 

2630 IF A*="V" THEN 2650 

2640 IF AJS="N” THEN 2600 

2650 OPEN 1> L L "TEAMS" 

2660 PR I NT# 1 j. T 

2670 FOR JT=1 TO T : PRINT#1 f T*<J>R$ : NEXT 
2630 CLOSE 1 

2690 POKE 16385, INKR/256) = POKE 16384fR- 

INT<R/256>#256 

2700 SVS 16416 

2710 SVS 65511 

2720 PR I NT" JOBACK —UP? <V/N>" 

2730 GOSUB 2300 

2740 IF A*="V" THEN 2610 

2750 END 

2300 GET A$:IF A^="" THEN 2300 
2310 RETURN 

2900 PRINT" kMATCH HOME" ; TRBU7V AWAY" ; TA 
BC27> "RATING SC*]" 

2910 FOR J= X TO V STEP Z 

2920 PR I NTMX Uf3)J TAB < 6 > T & < MX C MX <3,3>,0> 

> ; TAB < 1 T > T* < MX C MX <3,3t> , Dj TAB < 27 > MX <3,3. 

2930 NEXT 

2940 PR I NTTAB < 8 > " tkJSWK SPACE BAR TO CONTIN 
UE> 

2950 GOSUB 2300 

2960 IF A*<>" " THEN 2950 

2970 RETURN 

3000 PRINT"® "fV$i" Tf AM — FIRST TWO L 

ETTERS " J 

3010 GOSUB 2800 

3020 PRINTAt; 

3030 GET BS: IF B*'=" " THEN 3030 

3040 PRINTB$:T*=At+B* 

3050 IF T=0 THEN FT — 0 ■ GOTO 3090 
306© FT=0 : FOR JT= 1 TO T 

3070 IF T*=>LEFT*<T*<J)f2> THEN PRINTJ..T* 

<J>■ FT=1 
3030 NEXT 

3090 IF FT=0 THEN 3220 

3100 INPUT"W KEY ONE OF THESE NOSf OR "© 

" ; Tip 

3110 FT=VAL<T$> : IF FT<0 OR FT>T THEN PRI 

NT".TT' 'GOTO 3100 

3120 IF FT“0 THEN 3220 

3130 TP=T*CFT) 

3140 PRINT"W THE NAME OF THE ";V* i " TEAM 

IS'WS" : PRINTTABC9)LEFT$<TP, 1 0 > ; " jaXOM. . .O 
K? < V7N>" 

3150 GOSUB 2300 
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3160 IF fl*0"V" THEN 3220 

3170 Tf=LEFTS<Tt 10) : FF = 9 : FOR _T= 1 TO T I 
F T#=T*(J) THEN FF=J 
3130 NEXT 

3130 IF FF>0 THEN FT=FF : GOTO 3210 

3200 IF FV=1 THEN T = T-+-1 ; Tf (T)=LEFT* <T$ . 1 

0> = FT = T 

32 1 0 PR I NT “ r3" = RETURN 

3220 INPUT"*! TEAM'S FULL NAME'ST* 

3230 PRINT"M NAME OK? CV/N)" 

32-4-0 FV=0 : GOSUB 2300 

3250 IF R*= ,, V” THEN FV=1 GOTO 3140 
3260 GOTO 3220 
3500 MMX=MMX+1 

3510 GHX= < PEEK <K+2>RND240V16 
3520 GA5i=PEEK<K+2) AND15 
3530 RETURN 

5000 BATR 169- 1, 162, L 160,255,32.- 186,255 
, 163,. 0,32, 133, 255 

5010 BRTR 163,0,162,66,160,64,32,213,255 
, 142,0, 64, 140, 1,64,36 

5020 DRTR 169,1,162,1,160,1,32,186,255,1 
63,0,32, 133, 255, 163,66, 133 

5030 DRTR 251,169,64,133,252,174,0,64,1? 
2,1,64,163,251,32,216,255,36 





Info File 



Once you have this program on tape, you will find it useful in so 
many ways. It can be used in the office for holding personnel records 
or customer records. In the shop, it can be used for holding an up-to- 
date price list of goods. In the workshop it can catalogue machine 
parts or component specifications. There are dozens of uses for it in 
the home, too, from keeping a catalogue of collections of music and 
video recordings, or indexing your favourite recipes, to using it as a 
diary, a telephone book or a birthday present book. If your interest 
lies in research of any kind, use the program for indexing references 
to the literature of your subject. The Club Secretary could use it for 
keeping membership details, and a summary of the Agendas of 
meeting. 


How the program works 

The information is stored in what is called a file. Here the file is a 
cassette tape with data recorded on it. Like the file in the office, the 
data it holds all relates to the same subject. You can have a file called 
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‘Personnel records’, for example, and others called ‘Video’, 
‘Addresses’ or ‘Engagements’. Any of these tapes can be taken and 
used with the Info File program, making it one of the most 
versatile programs in this book. 

Within the file (or tape) the information is separated into records. 
You may put several hundred records in a file, if you like. The 
records are equivalent to the sheets of paper held in a file box, or the 
cards in a card-file. Each hold a certain amount of information and 
each holds information of the same kind, depending on the purpose 
of the file. For example, in a file called ‘Personnel records’ there will 
be a record for each employee. In a file called ‘Video tapes’ there will 
be a record for each tape in your collection. 

The information in each record is divided into a number of fields. 
This program allows you to have up to four fields in each record. For 
example, in a personnel file the fields in each record might be: 

Employee’s name. 

Employee’s address and phone number. 

Coded information about department, salary scale, tax codes 
etc. 

Notes on aptitudes, promotion prospects etc. 


Any field may be up to 80 characters long, giving ample room for 
brief comments such as those in the last item listed above. However, 
fields that do not need many characters can be allotted as few as you 
wish, thus saving memory space and allowing more records to be 
held in the file. 

As another example of fields, consider a file used as a spare parts 
catalogue. The fields might be: 

Part number or code. 

Specification. 

Price per unit part. 

Number of parts per box. 

The program provides for the amending of information at any 
time, so data such as prices or addresses can readily be changed 
when necessary. 

The program includes a ‘Find’ option which allows you to pick 
out and view any single record or set of records. You could, for 
example, ask it to display all records of customers whose name 
begins with ‘B’, or all video recordings starring Michael Caine. 
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Using the program 

The first message displayed on running the program is ‘data tape 
ready? (y/ n)?\ If you have not used the program before for a given 
file, key N; if you already have a data tape carrying the information 
you want to look at or add to, key ‘Y\ 

If you key N, you are then asked to enter the details of the file that 
must first be created. The first item is its name, such as 
‘VEHICLES’, ‘RECIPES’, ‘SOFTWARE’. Write the name on the 
label of the cassette, so that you will always remember its exact 
name. The records can have up to four fields, each of which must have a 
name, too. The fields of a record of a‘VEHICLE’file might be called 
‘MODEL’, 'REGISTRATION NUMBER’, ‘LOG’, ‘SERVICING’. 

You are also asked to decide how many characters are to be 
allocated to each field. Each field can have between 1 and 80 
characters. The more characters you allot to each field, the fewer 
records the file can hold. Make sure that you allow enough 
characters for names and addresses, for example, as it is not possible 
to alter the number of characters later. Remember that the 
characters include spaces between words. When you have finished 
giving your requirements, the computer calculates how many records 
the file will be able to hold, and displays this figure. If this is enough, 
key Y. If not, key N and you are asked to repeat the entering of field 
names and numbers of characters, perhaps cutting down on the 
number of characters to allow an increased number of records. 

When all is settled, and you have keyed Y, you are asked to put a 
new tape into the Datassette. This must be rewound to the 
beginning, but not to the non-magnetic leader. Press ‘RECORD’ 
and ‘PLAY’ when asked to do so. The file is now created on the tape. 
After a few seconds, the recorder stops and the message ‘back-up?’ 
appears. It is a very good idea to have a back-up (see general remarks 
on data recording in the introduction), so key Y and repeat the 
recording operation with another new tape. After this, press N, 
which brings the program to an end. You now have a data tape (or 
two). RUN the program again and this time answer Y to the first 
question. 

If you already had a data tape, or have just started one, you will 
have keyed Y to the question, 'data tape ready?’. You are then asked 
to type in the file name; copy this exactly from the name written on 
the cassette. Make sure the tape is rewound, and press ‘PLAY’ when 
asked to do so. When the recorder stops, the Menu is displayed on 
the screen. 
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The menu offers three options: 

(1) Enter record: This is for adding information to your file. When 
you choose this option the screen displays the name of the first field 
and, in brackets after the name, the maximum number of characters 
allowed. Type in whatever information you want to go into this 
field. Typing in is slightly different from normal typing on the 
computer. For one thing, it uses both lower-case and upper-case 
letters, as does a typewriter. You press the SHIFT key to get upper¬ 
case (capital) letters, just as on a typewriter. There is no cursor but, 
as you type, your entry appears on the next line of the screen. When 
you have typed to within five characters of the allowed number, a 
gentle ‘beep’ from the loudspeaker reminds you that you are running 
out of space in that field. When you have typed as many characters 
as are allowed, the computer refuses to accept any more. You will 
notice that the routine refuses to accept double quotes (“). This is 
because the string-handling routines of the computer would take the 
double quotes to be the end of the text in the field. 

When you have finished entering the information in that field, 
press RETURN. The computer will now display the name of the 
second field. Carry on in this way until all fields have been filled in. 
The computer then returns you to the Menu. 

If you want to leave a field empty for the moment, just press 
RETURN without typing anything. If you make a mistake when 
typing information, press the DELETE key. This does not delete 
characters as it normally does. Instead it prints a left-pointing arrow 
at the end of your incorrect entry, to show that it has been discarded. 
You can now retype the correct version, which appears on the line 
below. You can use the delete function as often as you want until the 
entry is correct. 

(2) Find record: This is the option by which you can examine (and 
alter, if you wish to) any record. When you select this option you are 
first asked which fields are to be searched to find the record you 
want. If you are not sure, or want all fields to be searched, key Y in 
response to all queries. Otherwise key N to those fields which are not 
relevant, for it takes longer to search all fields than just one or two. 
This option is a very powerful one, for it can find a piece of 
information is such a variety of ways. When you have decided which 
fields are to be included in the search, you are asked to type in ‘what 
is to be found’. The computer accepts up to 10 characters, and the 
typing in is just the same as making an entry in option 1. 

What you type depends on how you want the search to be made. 
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Here are some examples to give you an idea of that to type: 

(a) If you want to look through every record on the file, type nothing 
just press RETURN. 

(b) If you know exactly which record you want to see, type in the 
details fairly fully. For example, if you have selected the ‘NAME’ 
field for the search and want to see the record of Joseph Bloggs, type 
‘Joseph Bloggs’ and (unless you have more than one person of that 
name on your file) the computer will find and display Joseph Bloggs’ 
record and no other. 

(c) If you are not sure how Joe spells his name (is it Bloggs or Blogs, 
or Blogg? is it Joseph or Joe?) try typing ‘Blog’. The computer will 
find all records for which one of the names begins with ‘Blog’, so you 
are bound to find the record you want. 

(d) If you want to find all the names beginning with a given letter, 
type ‘B’ for example, and you will then be shown all records with 
names beginning with that letter, from Babb to Bywaters. 

(e) the program can just as easily find groups of characters which 
occur in the middle of words or phrases. For example, if you search 
an ‘ADDRESS’ field for ‘W1X 4BD’ it will pick out all records which 
have that Post Code in the address. Similarly, if an employee’s code 
includes the letter ‘M’ for all male employees, searching the 
corresponding field for ‘M’ results in all records of male employees 
being displayed. 

If there is no record which has the features you are searching for, 
the message ‘NOT FOUND’ appears and, after a few seconds, you 
are returned to the Menu. 

As each record is displayed, you are given three options: 

C = Continue 
A = Amend 
Space-bar - Menu 

If you key C, the search continues to display the next record which 
conforms to your request. When no more such records are to be 
found in the file, the message ‘SEARCH COMPLETED’ is 
displayed. After a few seconds you are returned to the Menu. 

Keying A gives you the chance to alter or delete the whole or part 
of a record. You are shown each field of the record in turn. You can 
then type one of the following: 

(a) RETURN: this deletes the field completely, leaving it empty. 

(b) V : This character is obtained by pressing the SHIFT key with 
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The result of keying ‘V’ is that the field is retained, unaltered. 
Then press RETURN. 

(c) Type in the new information which is to replace the old. Note 
that the new information replaces the old information it is not 
added to it. Then press RETURN. 

If you delete all the fields in a record, the empty record is removed 
from the file, making room for a new record. All records following 
the deleted one are renumbered. 

After you have amended a record, the search continues to find any 
further records conforming to your original description. This allows 
you to call up a set of records or even all of the records and amend 
each one in turn. 

(3) Finish: It is essential not to finish the program by switching off 
the computer, or typing RUN/STOP. Instead, choose option 3. 
Rewind the data tape when asked ‘Data tape ready?’ Make sure it is 
positioned with the magnetic part against the tap head. Press 
‘RECORD’ and ‘PLAY’ when asked to do so. When the data has 
been saved, you will then be asked if you want a back-up. If so, 
repeat the operation, using your back-up data tape. The program 
then finishes. 


Keying in 


Since this program uses upper- and lower-case the listing is in lower¬ 
case and uses Control Characters for text mode (see Key Points). 

Control characters used are: 

CLEAR: lines 30, 60, 170, 180, 300,310,430,600, 1230, 1340, 
1500 

CTRL/2: lines 30, 440, 620, 1030, 1070, 1210, 1250, 1360, 
1410 

CRSR DOWN: lines 30, 60, 70, 100, 150 (2), 300, 430 (3), 440 
(2), 450 (2), 460 (2), 470 (3), 620 (1, 1), 660 (2), 670 (2), 
1030 (2), 1070 (2, 2), 1200 (2), 1210 (2), 1240, 1250, 1270 (2), 
1340, 1350 (2, 1), 1360 (1, 1), 1410 (2), 1510 (2) 

CTRL/4: lines 430, 470, 620 1030, 1070, 1240, 1270, 1340, 
1350. 1360, 1500 

CRSR UP: lines 80 (2), 120 (2) 

Unlisted: 

C = /7; lines 600 (after CLEAR), 620 (after first q), 670 (after 
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the q’s), 1000 (after CLEAR), 1230 (after CLEAR) 
TEXT: line 440 (after q’s) 


Program design 

20 initialising sound generator. 

30-280 routine for setting up a new data tape (also used from 
line 190 for saving data). 

300 420 reading data from tape. 

430-510 the Menu. 

600-700 entering records. 

1000-1310 searching records. 

1320 1490 amending records. 

1500 1530 finishing (completed in lines 190-280). 

4000-4010 subroutine to get key-press. 

5000 5090 subroutine used when typing into fields. 


The program 


10 i-em ** info -file ** 

20 rt=chr$ < 13) ; F- ok e- 54272 -• 43 : P ok <s 542 r 3 .• 
13?:Poke 54236.. 15 : Poke 54278,240 
30 Print" 3JC=lr led a. 1 3 . taPe r-e-ady'? : 9osu 

to 4000 

40 i f 3 *- " ■=) " then 300 
50 i-P n" tto&n 30 

60 rin= le-10 : tc»0 : input" SSEIf i le name- " n£: 

7 0 input" £Tn o . of fie-Ids- < l-4> " ; na* 

Q0 n=val : iP n< 1 ok- n>4 the-n Print")!] 

W : Soto 70 
30 for' j = 0 to n—1 

100 Print"aname oP field"1J+lJ-inPutn*Ci 
> 

110 inpufrio oP characters Cmax 80) " ; nc$ 
1 20 me: < J > «»va 1 < net ) : if net C J >< 1 or no C j 5 >8 
0 then Print"SW" : Soto 110 
130 to«=*tc-*-no < J > : ne-xt 
140 nr=int < 26624/tc> 

150 Print"a6bou can kiavv^e u.P to";nr; "r'e-oo 
r-ds . •’ :pri nt "ok? < y v'n > ” 

160 9osub 4000 

170 if " n" then Print"**" : goto 60 

180 Print "Sneu data. taPe ready? (s7n)" : 
9osu.b 4000 
130 oPen 1 1 , 1 .* n* 

200 Pri nt# 1 .■ n .: .: nr .: ; nn :• r'* 

210 for- j =0 to n—1 

220 Print#l,n*U>;r*;nc< J)Jrt 
230 ne-xt 

240 if nn>=l tkie-n for- J = 1 to nn : for k=0 
to n—1 : Print#1 > d*= < J >k >i r * :next : next 
250 olose 1 

260 Print“back -up Cyr'n?” : 9osub 4000 
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270 if *.■&=*•' y" then 180 
230 e-nd 

300 input" -ETF i le name " i n* 

310 Prinf'S" : oPen 1/l,0;n* 

320 1 Tip i.i. t# 1 n .• nr' , nn 

330 for J =»0 to n—1 

340 i nP u.t# 1 j n* < J > .• nc <C J > 

350 next 

360 if nn =le-10 then nn = 0 

370 dim dt^nrjj n—1 > : if nn = 0 then 420 
330 for- J = 1 to nn 
330 for k =0 to n —1 

400 inPutitl j d* < J r k > 

410 noxt : next 
420 closo 1 

430 P r~ i nt " i^SECEF i 1 <=■ : " ; n* 

440 Printtab<5) " SfflSl > Entor~ record" 

450 Pr intte.bO? "SE12> Find t'*=-oor-d” 

460 P r- i nttab t 5 > " 2ES3 } Fini ski “ 

470 P r-i nt" SEEJS < Select ba Pressing n'j.m 
toor'e-d key >" 

4©0 9osu.b 4000 

430 e,=val <a$) : if a.<0 or a>3 then 480 
500 if a—2 a.nd nn=0 then 480 
510 on a. 9oto ©00.* 1000i 1500 

©00 nn=nn+l : Print"3 File : ";n#;tab<25)"R 

ecord no."}nn 

©10 for j=0 to n—1 

©20 F- r~ i nt-" HF ield" ; J ■+■ 1 } " ■ < J > " < " • n 

c < J > J " > ET3" 

©30 9osub 5000 
©40 df<nniJ)=ei 
©50 Print"" : next 

©©0 if nr.=nr t ki <=• n Pr i nt" etc*** FILE FULL" 
€-7Q Print"!BKflna koy for- more Space ba. 
r- for- M=nij.>" 

©80 9osu.b 4000 

690 if at*<>" " then ©00 

700 goto 430 

1000 Print"* File : " n^ 

10 10 for J =0 to 3 : fs<! J1 = 0 : next 

1020 for J=0 to n—1 

1 030 Pri nt " ssa: IS *B o a. r-- c: ki field" ; J •+• 1 ■ " < " ; n* < J 
y ; ”y y 7n • 

1040 Sosu.to 4000 : Printat 

1050 if a.*="y" then fs<-i) = l 
10©0 next 

1070 Print"EIEISfTyPe ujkia.t is to too found <. 

ma.x 10 cckia.r~s- > JElS" 

108© ff=0U=4:ncO> = 10 : 9osub 5000 ■ s^=ei 
le=len(eij 
1030 J = 1 
1 100 k =0 

1110 if fs<k)=0 then 1180 
1120 ld=len<d*<J,k>> 

1130 if ld=0 or- ld<le then 1180 

1140 if ld=le and s*=dtU..kl then 1230 

1150 1=1 

1160 if mid$<dt< 1.. le>»s$ then 1230 

1170 if 1<=ld-le then 1-1+1 Soto 1160 

1180 k.=k + l : if k<n ttoon 1110 

1 130 j = j 1 : if j<nn+l tkie-n 1 100 

1200 if ff=0 then pri nt" SIEttOT FOUND" : 9ot 

o 1 220 

1210 P rint" EESSERRCH COMPLETED" 

1220 for J = 1 to 2000 : noxt : ■Soto 430 

1230 ff=l : Print" ?3?ecorci no. " ■ j : form=0 to 

n— 1 

1240 P r i nt " ifKK" i nS ■; m > 
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1250 P r-i nt " £*53" d* C J m > 

1260 n e x t 

1270 Pr int"SSES C = Continue B=Rmeirid SP 

•3-0=- bar=Me n ij.'' 

1280 9os i J. to 4000 

1290 1 t 3 . 4 — 1 ' " then 430 

1300 if' then 1190 

1310 if' 31*0 " 3 ." then 1230 

1 320 f'or' P —0 to Vi— 1 : -Td<ri> =0 - next- 

1330 f or p=0 to vi—1 

1340 Print" SeKSRme vd r~eI— o r- d " j 

1 350 P i- i vit " £15*83^ ield" ; P + 1 ; " i & : ’SBt" p r~ i ntd 

jiP> 

1 360 Pni n t' ’ 2TSBSSK e y r' or the- new version : Ucl 

• t 

1370 Sosu-to 5000 : it e * O " i^ " then d*<J..p> 

=e * 

1330 next 

1390 fd=6 : for p =0 to Vi—1 

1400 it d* < j p > <> " " then td=l 

14 10 next : P t- i nt " iBERECORD RMEHDED " 

1420 it td=1 then 1190 

1430 it i=vivi then 1460 

1440 tov- P = j to vi vi— 1 

1 450 tor-- 4 —0 to vi— 1 : d* CPd) = d* < P -+-1 .. 4 > : ne¬ 

xt : next 

1460 tor 4=0 to tv— 1 : d* < vivi4 i = " " : next 
1470 TlVi=Vl VI— 1 

1430 it J >nn then 1210 

1490 Soto 1100 

1500 Print'Winishinii" 

1510 p v- i nt" tfseii.i 3 .t 3 . t3.Pe v-ea.dy'? <y2n>" 

1520 9osu.b 4000 
1530 Soto 190 


4000 

set 3 * : it 

3 *= “ • 

' then 

4000 

4010 
5000 
50 10 

he-tuHn 
e*="”:d=0 
Set 3 .* : i t 

3.*=” ' 

' then 

5010 


5020 it a*=chri< 34 > then 5010 

503© it ai=chr£<13) then return 

5040 it a#=chr#<20]) then e*=" " : P 1 — int"+-‘ l : 

goto 5000 

5050 it 1 en < e* ? =r%cz < ■> 0 then 50 10 

5060 Printa*; 

5079 e*=e*+-3.* 

5030 it len<e*)>ncO)-5 then Poke 54276. 

33 : torz= 1 to 200 : next : P ok e 54276 .■ 32 
5090 Soto 5010 


4 
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!ix a nu"T 2 V 9 f& D, *- L£D cmxs 

('hCaP bate at Ai.L other Tires 

MO CHEAP RATE ON CHARGE BAND SB 

TINE <SEC . > FOR t CHARGE UNIT < 4.3 P ) 


MANGE IMM) 


STANOARO 


mt ? < 1 - 5 * 1 


Being able to see the cost mounting up as one talks is a sure 
deterrent to overspending on the telephone account. Since rates vary 
so widely according to distance and time of day, it is hard for the 
average person to estimate what the cost of a call is likely to be. The 
program caters for calls of all distances, both inland and 
international, including those dialled directly and those obtained 
with the assistance of the operator. While you are talking, a marker 
moves across the botton of the screen indicating what fraction of the 
current charging period has elapsed. This lets you know when you 
should begin to try to close the conversation, rather than incur the 
extra expense of another whole period. 

The charges, durations and rate of VAT shown in the listing are 
those in force at the time of writing. These are incorporated in 
DATA statements which are easy to revise when changes in rates 
are announced. 
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How to use the program 

The operation of the program is as simple as the telephone call tariff 
will allow it to be. You are given full screen displays of charges and 
the more important regulations affecting them. Whenever you have 
to key in a letter, the prompting message indicates which letters are 
appropriate. There is no need to key RETURN at any stage. All 
these features make for quick and easy use of the program. 

When you RUN the program, you are first asked to choose 
between calls made by direct dialling and those which are made 
through the operator. The next choice is between inland calls (which 
includes the Channel Islands and the Irish Republic) and 
international calls. 

When you have made your choice the screen displays a table of 
charges for calls of the kind you have selected. You now have to 
answer simple queries about the kind of call you wish to make. 

Inland calls are of five kinds, depending mainly on distance. Each 
is represented by a ‘charge letter’. You can find out the letter to use 
by consulting your local telephone dialling codes booklet. The letter 
is printed to the left of the name of each exchange. N ote that instead 
of‘bl’ for low cost calls, this program uses the letter ‘C\ 

The time of day or night for which the different charge rates are in 
force (cheap, standard, and peak) are displayed on the screen. The 
rate for a call depends on the time the call is begun. The timings 
may vary at holiday periods, as announced in the Press. Frequently 
the cheap rate is in operation over the whole of the Christmas break, 
for example. 

Calls which are directly dialled are charged by the number of 
‘charge units’ used. There is a fixed charge for each unit, but the 
duration of the unit varies with distance and charge rate. For a local 
call at the cheap rate, the charge unit lasts eight minutes, while for a 
call over 56 km during the peak period a charge unit lasts only twelve 
seconds. Calls made by the operator are charged in a different way. 
Here the charge is by the minute, and parts of a minute are charged 
as a whole minute. There is a minimum charge equivalent to the 
charge for three minutes (nine minutes for local calls at the cheap 
rate). On the whole, operator calls are more expensive than direct 
dialled calls, though there is a special ‘lower charge’ rate for calls that 
have to be connected by the operator because the caller cannot dial 
or because a dialled call has failed. If you are timing an inland call by 
operator, the program asks you to say whether the normal or lower 
charge rate applies. 
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The charges for international calls depend on the charge band, 
which is given in the international section of the telephone dialling 
codes booklet. In this program we do not distinguish between band 
5A and band 5B. The difference is that there is no cheap rate for 
band 5B, so remember to enter only ‘S’ (standard) when making calls 
in this band. As with inland calls, international calls are charged on 
charge unit basis. The length of a charge until may be very short 
only 2.4 seconds on Band 5B! Calls made by the operator are charged 
by the minute, with a minimum charge for three minutes, just as 
with inland calls. Calls to certain countries can only be made as 
operator calls. 

When a call is made by the operator, it is possible to make a 
personal call, the timing of which does not begin until the person 
named is actually present at the telephone. There is a surcharge for 
this service, and the program asks if you are making such a call. For 
a few countries, all calls are regarded as personal calls, and the 
surcharge must always be added to the charge. 

When you have keyed in the details of the call you are intending to 
make, a message asks you to key S (for start) as soon as you are 
connected. In the case of a personal call, wait until your caller has 
answered in person. As soon as you press S, the screen display 
changes to show the duration of the call, its cost so far, and its cost so 
far with VAT added. You may notice that the charges including 
VAT are sometimes Ip more than those quoted in British Telecom’s 
telephone charges guide. In the guide the VAT inclusive charges are 
rounded to the nearest penny. On the telephone bill, however, odd 
fractions are ignored, as is the usual commercial practice. The 
program ignores fractions of pence too. 

While the call is in progress an arrow moves across the bottom of 
the screen. This tells you what portion of your current charge period 
has elapsed. You will see the charge increases suddenly whenever 
the arrow reaches the right-hand edge of the screen, for then a new 
period begins and another unit of charge has been incurred. With 
dialled long-distance calls the arrow moves all too rapidly! If you 
watch the arrow and can bring your call to a conclusion just before it 
reaches the right of the screen you can have the maximum of 
telephoning time for the minimum of cost. With operator calls the 
arrow takes three minutes to make its first journey across the screen 
(nine minutes in the case of local calls at cheap rate). After that it 
takes only one minute to cross the screen, as the charge is increased 
at intervals of one minute from then on. 

When you finish the call, press key F. The display is then held, 
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allowing you to note down the charge. Then press the space-bar, to 
make the computer ready for costing the next call. 


Keying in 

There are many slight variations and exceptions in the telephone 
call tariff that make it hard to cover all its intricacies with a few 
standard subroutines. Consequently, sections of the program 
duplicate lines from other sections closely but not exactly. You can 
save yourself a lot of typing by using the Commodore’s editing 
facility. For example, type line 40, LIST, in three times, then edit the 
second and third ‘copy’ to make them into lines 50 and 60. Having 
typed in lines 90 to 280, you will find that these can easily be listed 
and edited to provide lines 1000 to 1150. 

Control characters used are: 

CLEAR: lines 20, 90, 170, 310, 600, 1040, 1230, 1600 

CRSR DOWN: lines 90, 130, 170 (2), 210, 220 (2, 1), 310, 320 
(2), 330 (2), 340 (3),370 (6), 600 (2), 040. 650 (2, 1), 690, 
1080, 1230, 1240 (2) 1250 (2), 1260 (3), 1290 (6), 1600 (2), 
1640, 1650 (2), 1690, 2770, 2780 (2), 2790 (2), 2970,2980 (2) 
2990 (2), 3500, 3700 

CTRL/2: lines 90 (1, 1, 1), 130 (1, 1, 1), 170, 210, 230-270, 
600, 640, 1000 (1, 1, 1), 1040, 1080, 1110 1150, 1600, 
1630, 2770, 2970 

CTRL/4: lines 180, 220 270, 340, 370, 610, 650 1050, 1090, 
1110 1150, 1260, 1290, 1620, 1650, 3700 

HOME: lines 2770, 2970 

Unlisted: 

0=7 7: lines 90 (after the ‘Q’, after the ‘D’ of ‘DIALLED’ and 
after the ‘O’ of‘OPERATOR’), 130 (after the‘Q’, after the‘L’ 
of ‘INLAND’, after the first T of ‘INTERNATIONAL’), 
and 1000 (as line 130). 


Program design 

20 80 reading charge and duration DATA. 
90-160 directing program to main types of call. 
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170 290 displaying and inputting details of inland direct dialled 
calls. 

300-400 timing and displaying cost of all direct dialled calls. 
600 760 displaying and inputting details of international DD 
calls. 

1000 1200 displaying and inputting details of inland operator 
calls. 

1210-1320 timing and displaying cost of all operator calls. 

1600 1760 displaying and inputting details of international 
operator calls. 

2000-2010 subroutine for getting key-press. 

2600 2610 subroutine for printing line of a charge table (dialled 
calls). 

2650-2660 subroutine for printing line of a charge table (operator 
calls). 

2700 2840 subroutine for timing and costing dialled calls. 

2900 3040 subroutine for timing and costing operator calls. 
3500 -3640 subroutine for inputting and analysing details of 
inland calls. 

3700 3740 subroutine waiting for call to begin. 

4000 4040 DATA statement containing durations and charges 
etc. 

Variations 

Telephone charges are certain to change from time to time, and one 
may always hope for a welcome reduction in V AT. Provided that the 
charging structure does not alter drastically, the program can easily 
be modified for new charge rates. The DATA lines are made up as 
follows: 

Line 4000: The cost of one charge unit for a direct dialled call 
(currently 4.3p), the VAT rate (15%), then the times in seconds 
allowed for 1 charge unit for inland dialled calls (in order, row by 
row, as listed on the screen display). 

Line 4010: Times in seconds allowed for 1 charge unit for 
international dialled calls. 

Lines 4020 and 4030: Charges (pence per minute) for inland 
operator calls. 

Line 4040: Charges (pence per minute) for international operator 
calls, the personal call surcharge (bands 1-3) and the personal call 
surcharge (bands 4-5). 
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The program 

10 REM «#l PHONE CALL COSTER ** 
20 PRINT ,, n n 
30 READ C sREAD V 


40 FOR J-l TO 
>!NEXT:NEXT 

5 : FOR 

K— 1 

TO 

3 

RERD 

DL(J, 

K 

50 FOR J-l TO 
>:NEXT:NEXT 

5 = FOR 

K— 1 

TO 

2 

READ 

DT< J. 

K 

60 FOR J-l TO 

5 : FOR 

K-l 

TO 

6 

RERD 

PL ( J, 

K 


>:NEXT:NEXT 

7-0 FOR J-l TO 5 : READ PTCJ>:NEXT 
80 READ SIjS2 

90 PRIHT'TJMCALL sffllRLLED OR MADE BV SOPE 
ROTOR? ■KB.'-'a? 

100 OOSUB 2000 

110 IF RsItO" D" AND R*0 ,, 0” THEN 100 
120 IF R*-"0" THEN 1000 

130 PRINT"MCRLL I N K.AND OR IN KTERNHTI ONA 
L? KL/'TV 

14e OOSUB 2000:RE*-A* 

150 IF RE*0"L" AND RE*0"T" THEN 140 
160 IF REt-"T" THEN 600 

170 PR I NT" ncceccmi NLAND DIRECT DIALLED CALL 

S : " 

180 PRINT"kSTD. RATE: 8-9 RND 13—IS. M—F 

• • 

190 PRINT"PERK RATE : 9-13, M—F“ 

200 PRINT"CHERP RRTE RT RLL OTHER TIMES" 

210 PRINT" JOWTIME CSEC. > FOR 1 CHRROE UNI 

T C 11 i C i it p ^ ii 

220 PRINT" MMkCHRROE-LETTER CHERP STRND 

230 PR I NT " LLOCAL ; :J=1=OOSUB 26 

00<PRINT"" 

240 PRINT" fcJUP TO 56 KM SR"; = J = 2:OOSUB 26 

00 ■ PRINT"" 

250 PR I NT ” fcJOVER 56 KM *B " ; =J—3=OOSUB 26 

00:PRINT"" 

260 PRINT”kLOW COST SIC"; : J»4 : OOSUB 26 

00:PRINT"" 

270 PR I NT "klRISH REP. SC"; : J«=3 : OOSUB 26 

00:PRINT"" 

280 OOSUB 3500 
290 OOSUB 37*00 
300 TI*—"000000" 

310 PRINT"™ LENGTH OF CRLL -" 

320 PR I NT" XDQ COST OF CRLL. — ” 

330 PRINT"W« COST INCLUDING VRT — " 

340 PRINT"HHUk. KEV ' F ' WHEN VOU HRVE FIN 

ISHED" 

350 FOR J—0 TO 39 : POKE 1944+J . 30 : NEXT 
360 OOSUB 27*00 

37*0 PR I NT" ■kJtUDOUMK] SPRCE BRR FOR NEXT CRL 
L" 

380 OOSUB 2000 

390 IF R*<>" » THEN 380 

400 GOTO 90 

600 PRINT"nsWMINTERNRTIONAL DIRECT DIRLL 
ED CRLLS:" 

610 PR I NT " liSTD . RRTE: 8-20. M—F” 

620 PRINT"CHERP RRTE RT RLL OTHER TIMES” 
630 PRINT"NO CHERP RRTE ON CHRRGE BRND 5 
B" 

640 PRINT" 10 WTI ME (SEC. ) FOR 1 CHRROE UNI 
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650 PR I NT " MttkCHflRGE-BFIND CHEAP 

STANDARDS" 

660 FOR JT=1 TO 5 

67"0 PR I NTTRB C 5 > 3 ; TAB CIS? DT C. J , 1 > TAB < 3 1 > D 
TC JT, 2> 

sea next 

630 PRINT"WCHARGE BAND Cl—5>?" 

700 OOSUB 2000:CL = VALCA*> : IF CL<0 OR Cl_> 
S THEN 7-00 

•710 PR I NT " RATE CC..S??" 

720 GOSUB 2000 

730 IF A*0"C” AND R^O" Q ” THEN 720 
740 IF R*="C" THEN R=1 
750 IF R*=”S" THEN R=2 
760 GOTO 290 

1000 PR I NT " WCRLL IN5LRND OR I N afTERNRT I ON 
AU? CSICLXT? 

1010 GOSUB 2000:RE*=R* 

1020 IF RE*0"L" RND RE*0"T'' THEN 1010 
1030 IF RE*="T" THEN 1600 

1040 PRINT"naiNLAND OPERRTOR CONNECTED C 
RLLS : " 

1050 PRINT” IfcjSTD. RRTE : Q-9 RND 13-18, M~ 

F" 

1060 PRINT"PERK RRTE : 9-13, M—F" 

1070 PRINT"CHERP RRTE RT ALL OTHER TIMES 

1060 PRINT"WSCHRRGE PER MINUTE CMINIMUM 
3 MIN; 9 MIN ON LOCAL CHERP RATE)." 

1090 PRINTTRB<20)"U^ORMRL LOWER" 


1100 PRINT” mCHRRGE—LETTER 

CH 

ST PK 

CH ST PK" 

1110 PRINT" kLOCAL 

; 

= J — 1 

GOSUB 

2 

65© : PRINT"" 

1120 PR I NT" fcJUP TO 56 KM 

SIR" J 

N 

II 

*> 

GOSUB 

2 

650 : PRINT"" 

1130 PR I NT" IkjDVER 56 KM 

sCB" ; 

: J = 3 

GOSUB 

2 

650 ■ PRINT"" 

1140 PR I NT " hJLOW COST 

aC" J 

: J = 4 

OOSUB 

2 

650 : PRINT"" 

1150 PRINT"kIRISH REP. 

^ T 1 ■ - 

: -J = 5 

GOSUB 

2 


650 = PRINT"" 

1160 GOSUB 3500 

1170 PRINT"NORMRL OR LOWER CHARGE CN,L)? 
1180 GOSUB 2000 

1190 IF R*<>"N" RND R2*<>"L" THEN 1180 
1200 IF R*="L" THEN R=R-t-3 
1210 GOSUB 3700 
1220 TI*="000000" 

1230 PR I NT ” 73)0 LENGTH OF CRLL =" 

1240 PRINT"JSna COST OF CRLL =" 

1250 PR I NT "MHO COST INCLUDING VRT =" 

1260 PRINT"*®®*. KEV "F" WHEN VOU HRVE FI 
NISHED" 

127-0 FOR J=0 TO 39 : POKE 1944+ J , 30 = NEXT 
1200 GOSUB 2900 

1290 PRINT"fcGWWWOaWWI SPRCE BRR FOR NEXT CR 
LL" 

1300 GOSUB 2000 

1310 f F R*0" " THEN 1300 

1320 GOTO 90 

1600 PR I NT " n«MI NTERNRT I ONRL OPERRTOR CO 
NNECTED CRLLS=" 

1610 PRINT"^STANDARD RRTE RT RLL TIMES" 
1620 PRINT"PERSONAL CRLL SURCHRRGE Cl>" 

;si; "P or c2)";S2 ;"p mrv be prvrble" 

1630 PRINT"WCHRRGE PER MINUTE CMINIMUM 3 
MIN? . " 
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1640 PRIHT"MMkCHRRGE-BHND" ; TRB< 20 > "CHRRG 
EM" 

1650 FOR J=1 TO 5 

1660 PRINTTRE C5>J; TRB < 23 > PT < J > 

1670 NEXT 

1680 PRINT”WCHRRDE-BRND <1-5)?" 

1680 GOSUB 2000 

1700 CL=VRL<Rt> : IF CL<0 OR CL>5 THEN 168 

0 

IT - 10 PRINT "PERSONRL CRLL SURCHARGE? < 0.. 1 
^ 2 ) •' 

1720 GOSUB 2000= IF VRL<R*K0 OR VRL<fl*)> 


2 THEN 

1720 



1730 

IF 

R®=»”0” 

THEN 

SC-0 

1740 

IF 

R®="1" 

THEN 

3C=S 1 

1750 

IF 

R®="2" 

THEN 

SC=S2 


1760 GOTO 1210 

2000 OET R$:IF R®="" THEN 2000 
2010 RETURN 

2600 FOR K«=l TO 3 : PR I NTTRB < 8-+-K#8 > DL <J»K) 

)=NEXT 

2610 RETURN 

2650 FOR K=»l TO 6 : PRINTTRB< 12+K*4) I NT <PL 

<J,K)+.5>;:NEXT 

2660 RETURN 

2700 MK=0 = ML=56215 

2710 T=INTCTIX60>:IF T=0 THEN PP=0 : GOTO 
2740 

2720 IF REi= " T " THEN PP=T/BT < CL .. R > = GOTO 

2740 

2730 PP"=T7DL < CL .. R > 

2740 UP=INT<PR) 

2750 CH=* I NT < < UP+ 1 > #C > 

2260 VR=INT < CH* C 100+V)/l00 > 

2770 PRINT"aKf4l";TRB<23)T; " SECS " 

2780 PRINT")IW";TRB<23)CHj" P ” 

2780 PRINT"MM" i TRBC23)Vfll" P " 

2800 MK=40# <PP-UP)+56215 

2810 POKE MK; 1 : IF MKOML.THEN POKE ML, 6 = 
ML=MK 

2820 GET R® 

2830 IF R®0"F" THEN PR I NT" S3" : GOTO 2710 

2840 RETURN 

2800 MK = 0 = ML=56215 

2810 T=INTCTI/60)TP=T/60 

2820 IF T<180RNDCL>1RNDRE*="L" OR T<1S0R 
HDRE*='T” THEN UP=2 : PP=PP/3+UP : GOTO 2850 
2830 IF T <540 AND CL=1 RND RE®=”L" THEN 

UP=8 PP=PP79+UP=GOTO 2850 
2840 UP=INT < PP > 

2850 CH=INT< <UP+1>#PL<CL, R)) : IF RE*="T" 
THEN CH=INT<<UP+1)*PT<CL))+SC 
2860 VR=INTCCH*C100+V)/100) 

2870 PRINT" a(a«";TRB<23)INT<T/60); " MINS 

2880 PRINT" WDS3" 1 TRB <23 >CH.: " P " 

2880 PRINT-MM" TRBC23>VR l " P " 

3000 MK=40#<PP-UP)+56215 

30 10 POKE MK, 1 : IF MKOML THEN POKE ML , 6 : 

ML=MK 

3020 GET R® 

3030 IF R®0"F” THEN PR I NT " S3” : GOTO 2810 
3040 RETURN 

3500 PRINT" MCHRRGE LETTER <L,R,B,C,El?" 
3510 GOSUB 2000 

3520 IF R®0”L"RNDR®<>”R"RNDR®0"B"RNDR® 
<C> " C " RNBR®<E> " E " THEN 3510 
3530 IF R®="L" THEN CL-1 
3540 IF R®=.”R" THEN CL-2 
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3550 

IF 

R*“ 

" B " 

THEN 

CL=3 

3560 

IF 

R*=* 

"C" 

THEN 

CL=>4 

3570 

IF 

R*= 

"E" 

THEN 

CL=5 

3580 

PRINT" 

RRTE 

<C, 

S, P>7 


3590 GOSUB 2000 

3600 IF RCO ** C" AND R*0”S“ AND 0*0 "P" 
THEN 3590 


3610 

IF 

R**= 

•C M 

THEN 

R*= 1 

3620 

IF 

R*«= 1 

S " 

THEN 

R-=2 

3630 

IF 

R*= 1 

1 II 

THEN 

R = 3 


3640 RETURN 

3700 PR I NT" Itk. KEV "S" WHEN VOU RRE CONNE 
CTED" 

3V10 PRINT" KEV -F- WHEN VOU HRVE FINISH 
ED " 

37-20 GOSUB 2000 

37-30 IF R*<>"S" THEN 3720 

3740 RETURN 

4000 DRTR 4.3,15,480,120,90,144,45,30/48 
, 16, 12,60 , 20, 15, 15,8,8 

4010 DRTR 9,7.2,9,7.2,6,4.8,6,4.8,3.6,2. 
4 

4020 DRTR 2,6,7,-5556,2,3,8,12,15,2,6,9, 
12,22,28,6,16,22 

4030 DRTR 10,19,23,4,13,17,23,38,38,23,3 
8, 38 

4040 DRTR 56,56,74,84,138,150,300 



5 

Gotiit! 



Whenever you are working for exams, be they GCE, CSE, BEC, 
TEC, the driving test or simply first-form geography, it is always 
useful to have a friend to help test your knowledge. The Commodore 
64 can remember dozens of questions and their answers. It can fire 
the questions at you in random order, so that you never know exactly 
what it is going to ask you next. It keeps a score of your successes 
and helps you when you go wrong. 


How to use the program 

The program consists of two main sections. One is for use in setting 
questions; you type in the questions which you want the computer to 
ask you later. You also type in the correct answers. At this stage you 
are using your books and notes to make certain that the answers are 
correct. The other section of the program is that in which the 
computer chooses questions at random from those you have typed 
in and then asks you to key in the answers. At this stage you have put 
your books and notes away and hope to be able to recall the correct 
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answers from you own memory to match those in the computer. 

When the program is run, you are first asked ‘SET QUESTIONS 
OR ANSWER THEM?’. Key in S or A according to which section 
of the program you want to use. If you type S to set yourself 
questions, you will then be asked ‘TOPIC?’. Respond to this 
by typing a name which indicates what the questions will be about. 
Examples of names are ‘MAP READING’, ‘PHYSICS(ELEC- 
TRICITY)’, ‘BOOK-KEEPING’, ‘TRAFFIC SIGNS’, and ‘LIFE¬ 
SAVING’. 

The computer asks you to type in each question, and then its 
answer. Questions and answers may be up to two screen lines (total, 
80 characters) long. This should be enough for most questions and is 
certainly enough for the answers. In the other section of the 
program, the computer has to match the stored answer against the 
answer which you type in. These two must be exactly alike, letter-by¬ 
letter. It is therefore much better if the answers are short ones. 
Single-word answers are preferable. They can also be equations (e.g. 
V=IR) and chemical formulae (e.g. H 2 S0 4 ). 

If answers are to be as short as possible, the questions must be 
designed to be correctly answered with one-word or few-word 
answers. The task of designing questions to cover your topic fully, 
and working out the correct answers for typing in to the computer is, 
in itself, a tremendous aid to learning. It demands mental activity 
and is far more profitable than simply reading through a textbook 
or notes. You will probably find that, by the time you have worked 
out the questions and answers, you have already learnt almost all 
you need to know about the topic. 

After you have typed in each question and its answer, you are 
asked ‘ MORE?’. If you have more questions to type in, key Y. 
There is room for up to 100 questions and their answers. When you 
type N, the program asks you if the tape is ready. This is the tape on 
which the questions and answers are to be recorded, ready for you 
to answer on a later occasion. Write the exact name of the topic on 
the label of a cassette. Put the tape in the Datassette, making sure 
that it is rewound to the beginning, but not as far back as the non¬ 
magnetic leader. Then key Y. Press the ‘RECORD’ and ’PLAY’ 
buttons when asked to do so. In a minute or so the recording will be 
finished. Finally you are asked if you require a back-up. If so, key Y; 
the recording procedure just described is repeated. Otherwise, you 
press N and the program ends. If you want to enter more questions 
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on another topic or to answer questions on any topic rerun the 
program. 

When you run the program and want to test your knowledge, key 
A in answer to the question ‘SET QUESTIONS OR ANSWER 
THEM?’ As before, you will be asked ‘TOPIC?. Put in the tape 
labelled with the name of your chosen topic. It might be one you 
have just recorded, or perhaps one you recorded several days or 
weeks ago. It is a good idea to make these tapes while you are 
working on the course and keep them ready for revision just before 
the exams. 

When you have keyed in the name of the topic and pressed 
RETURN, you are asked ‘TAPE READY?’. Put the tape in the 
Datassette, rewound to the beginning, and press Y. Press the 
‘PLAY’ button when asked to do so. The questions and answers are 
read from the tape and stored in memory. As soon as this is done, the 
first question is displayed. 

Type in your answer and press RETURN. If your answer is 
correct, the message ‘CORRECT’ appears and your score is 
incremented by one. If your answer is incorrect the comment 
‘WRONG’ appears and the correct answer is displayed. After this, 
you are asked ‘MORE QUESTIONS?’. If you key Y the computer 
asks you another question. If you key N you are then asked if you 
want another topic. This gives you the chance to load another tape. 
If you do not choose this option, the program ends. 


Keying in 


Control characters used are: 

CLEAR: lines 30,70, 140, 600, 710 
CTRL/2: lines 30, 80, 100, 640, 660 
CRSR DOWN: lines 30 (3), 60 (2), 80, 90 (2), 100, 110 (3), 
140 (2, 2), 260, 500 (2), 510 (2), 610 660 (2 each), 680 (2), 
710 

Unlisted: 

C=/7: line 610 (after the Qs) 



Gottit! 63 


Program design 

20 initialising array and variables. 

30 -50 setting or answering? 

60-130 entering questions and answers. 

140 270 saving questions and answers. 

500-590 loading questions and answers. 

600 700 asking random questions and receiving user’s answers. 
710 740 option to load another tape. 

1000 1010 subroutine to get Y/N responses 


The program 


10 REM GOTTIT! ** 

20 DIM Q* < 1 00 1 > : M= 1 Rt = CHRiC 1 3> 

30 FRINT"a=C««W SET QUESTIONS OR ANSWER T 
HEM? <S?R>" 

40 GET fi* : IF R*<>"S" RND R*<>"R" THEN 40 
50 IF R*="R" THEN 500 
60 INPUT” MW TOPIC" .- TJ 

70 PRINT’THW QUESTION NO, ” N.: 11 : ” 

30 I NPUT ” MW .; Q* < N 0 > 

90 PRINT"MW ANSWER : " 

100 INPUT"Wa";Q*<N, O 

110 PRINT"MSMk. MORE? < V/N > " 

120 GOSUE 1000 

130 IF fl$="V" THEN N = N-*-l : 1I- N< 101 THEN T 
0 

140 FRINT’TXWMl TRPE RERDV? C VXN > MM " 

150 OOSUB 1000 
1 60 OPEN 1 .• \ , 1 .. T* 

1?0 PRINKtl.NjR* 

180 FOR J —1 TO N 

130 FOR K=0 TO 1 

£Q0 PRINT#l..Q$<J..K.)R.t 

210 NEXT - NEXT 

220 CLOSE 1 

230 PRINT"BRCK—UP? (V/N)" 

240 OOSUB 1000 

250 IF R^= M V" THEN 140 

260 PRINT"S3 RECORDING FINISHED" 

270 END 

500 NC=0 : NQ=0 : INPUT"SS TOPIC".?* 

510 PR I NT" MPA 'UT*j" TRPE RERDV? <V/N)" 


520 

OOSUB 1000 

530 

if n*=" 

N" THEN 520 

540 

OPEN 1 .. 

1 .. 0.. T* 

550 

INPUT#1 

, N 

560 

FOR J=1 

TO N 

573 

FOR K=0 

TO 1 

580 

INPUT#1 

.. Q* < ■ J ; K ) 


590 NEXT:NEXT 

600 PR I NT " 7WOUR SCORE I S " : NC : " OUT OF' JN 
Q 

610 NQ=NQ+ 1 PR I NT " jaw QUESTION" MQ 

620 R— I NT < RND < 1 *N > ■+■ 1 : PR I NT ” MHW" j Q* < R .. 0 -j 

630 PRINT")(W RNSWER?" 

640 I NPUT " Kte3=<" .: RN* 
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650 IF flNJsQSd?; 1> THEN PRIHT"H)a kCOPREC 
T":NC*NC+1 GOTO 680 

660 PRINT"MW kWRONG — THE CORRECT RNSWEP 
IS : Mas” 

S?0 PRINTQi< R , 1 > 

680 PR I NT" jtHk. MORE QUESTIONS? < 1 tVN~'" 

690 OOSUE 10O0 

700 IF R*:= ,, V" THEN 600 

710 PRINT" nw ANOTHER TOPIC? <V/NV 

720 OOSUE 1000 

730 IF Hi:="V” THEN 500 

740 ENE 

1000 GET Ri:IF Ri<>”V” RND R*<>"N" THEN 
1 000 

1010 RETURN 



6 

Sounds Incredible 



One of the most exciting features of the Commodore 64 is its Sound 
Interface Device (usually shortened to SID!). It produces a 
wealth of musical and sound effects unrivalled in a computer of this 
category. 

This program is a utility to help the programmer get the most 
from the SID. The program allows you to set up the parameters 
which you think will produce the sound you want. Then, if it is not 
quite right, you can adjust each parameter separately, until you get 
the effect you are aiming for. The program also lets you experiment 
quickly with the many possible combinations of settings and see 
what effects each has. 


How to use the program 

There are two stages in the program. In the first stage you key in the 
parameters to produce the sounds you want. In the second stage of 
the program, the computer displays the registers to be POKEd and 
the values to POKE to them. 
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You enter the parameters into a table which is gradually built up 
on the screen. To begin with the numbers 1 to 8 are displayed across 
the top of the screen, indicating the eight columns of the table, one 
for each phase of the sound sequence. Letters (see Table 6.1) appear 
down the left margin of the screen indicating the rows on which the 
parameters are to be entered. After a few seconds the cursor 
appears at the top of column 1. The cursor in this program is very 


Table 6.1 Sound parameters and their coding 


Parameter 

Row 

letter 

Meaning 

Number of 
characters 

Format (and range) 

Osc. 1 

BROWN 

BAND 

P 

Pitch 

4 

Frequency in hertz (0.1 to 
3995) 

OR 

Musical note (e.g.) C#3, 
A4) (CO to B7, see User 
Manual, Appendix M) 


W 

Waveform 

4 

T^triangle: S=sawtooth 
N=noise (key only one) 
OR 

pulse width (0000 3995, 
see Fig. 6.1) 


A 

Attack/ 

Decay 

4 

Attack (0-15)+Decay (0 

15) see Table 6.2 
i.e. 0000 to 1515 


S 

Sustain/ 

Release 

4 

Sustain (0-15)+Release 
(0-15) see Table 6.2 i.e. 
0000 to 1515 


F 

Filter? 

I 

Y or N 

Osc. 2 



As for Oscillator 1 

GREY 

BAND 
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Parameter 

Row 

letter 

Meaning 

Number of 
characters 

Format (and range) 

Osc. 3 



As for Oscillator 1 

RED 

BAND 

Filter 

S 

SYNC 

1 

S=SYNC, R=RING 

BLUE 

BAND 

F 

Filter 

freq. 

3 

Cut-off frequency, in 
hertz (000 to 999, 
then OIK to 12K for 
kilohertz) 


C 

Char¬ 

acter¬ 

istics 

2 

LP=low-pass;HP=high- 
pass;BP=band-pass; 
BR=band-reject (notch) 


R 

Reson¬ 

ance 

2 

None to max (00 15) 

Modulation 

0 

OSC3 

4 

Option no (1 9) plus 
factor (000 to 999); 
i.e. 1000 to 9999 

Scale factor 100 means 
multiply by 1 

BROWN 

E 

ENV3 

3 

Scale factor (000 to 999) 

BAND 

Volume 

V 

Volume 

2 

0-silence, 15=maximum 
(00 to 15, normally 15) 

GREY 

BAND 

D 

Durations 

4 

First period (00 99) 
plus second period (00 

99) 

i.e. 0000-9999 


different from that normally seen on the Commodore 64’s screen. It 
is much larger, is coloured pink, and encloses an area of screen four 
characters wide, to show where you are to key in the parameters, the 
values or codes required to define the sound. This cursor is actually a 
sprite, and is made to appear behind the characters alreadydisplayed 
on the screen, so that it does not obscure them. 

The cursor is moved around the screen under the control of the 
function keys. The keys have the following actions: 
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F5 move cursor to the next column to the right. 

F7 move cursor to the next row down. 

F3 press this to hear the sound. 

FI used when you are completely satisfied with defining a 
sound, and want to go on to the next stage of the program. 

There is one other control key, the ‘up-arrow’. When this is 
pressed, the screen is cleared and all memory locations and arrays are 
emptied ready for you to create another sound. To enter details 
within the cursor, type as you normally do, but do not press the 
RETURN key. When the four-character space is full the entry is 
automatically registered and the cursor moves down to the next row. 
On certain rows, only 1, 2 or 3 characters are required and it moves 
down as soon as the required number of characters has been typed. 
The exception is that in the ‘P’ and ‘W’ rows (see Table 6.1) the 
number of characters to be entered may vary. On these rows, press 
F7 when you have keyed in all the characters needed. 

You will have noticed that as you make entries, the colour of the 
screen changes in the region around the letters and figures. Use is 
being made of the special Extended Background Colour Mode to 
provide broad bands of colour across the screen, as listed in Table 
6.1. If you make a mistake when keying in a parameter, but before 
the cursor has moved down, press the DETETE key. You can then 
retype the entry. The letters you type in now will replace those 
already on the screen. If the cursor has already moved, bring it back 
to the same row and column, by returning it to the top left (press FI), 
then stepping down the columns (F7). 

Alternatively use F7 to put it on the required row and then F5 to 
put it on the required column. When you correct an entry, make sure 
that you retype all the digits or letters. Typing only the digits to be 
altered does not register the new value correctly. 

This is a long program and to incorporate error-checking routines 
would have made it even longer. Refer to Table 6.1 and type in the 
parameters exactly as specified there. If you make mistakes, the 
sound will probably not come out as intended. Interesting effects are 
arrived at in this way! Possibly you may get an error message and 
have to run the program again. 


Creating sound effects 

As a trial run, key in the pitch for one of the oscillators (voices), 
either by indicating the musical note required or the frequency, in 
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hertz. Table 6.1 indicates the limits allowed. The shape of the wave¬ 
form determines the quality of the note. There are suggestions on 
page 162 of the User Manual. The pulse wave is what is often called a 
‘square wave’. Figure 6.1 shows different kinds of square waves; the 
pulse width parameter is used to determine which shape is produced. 



pw = 500 


PW = 2048 





Fig. 6.1. Effect of pulse-width parameter on shape of pulse wave. 

A feature which gives even more character to a sound is its 
envelope. The envelope is defined by four parameters, as shown in 
Fig. 6.2. A sound or note begins when it is gated on (how to do this is 
explained later) and is sustained until it is gated off. The length of 
time the note sounds can be controlled by a delay loop. The 
parameter which sets this is the first duration period entered on the 
bottom row of the screen. At the end of this period, the note is gated 
off. After this the amplitude of sound dies away at a rate determined 
by the ‘release’ parameter. If a new note is started immediately, the 
release period is curtailed. This is why the program provides a 
second delay period. The note is allowed to die away before the next 
note begins. 

Two points should be borne in mind. Table 6.2 shows the lengths 
of time taken with various settings. If you have a relatively slow 
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ATTACK DECAY SUSTAIN 



Fig. 6.2. The waveform of a sound, showing the features of its envelope. 

attack rate, remember to set the duration of the note so that the 
sound has time to increase to a reasonable volume. Otherwise no 
sound may be heard. If the note has a rapid attack and decay rate, the 
sound may be over almost before it is begun. With rapid attack and 
decay (0- 8) it is essential to have a fairly high sustain value (10 or more). 


Filtering 

The output of any or all of the oscillators can be fed through an 
audio filter to change its quality. Here is another wide field for 
experimentation. To bring the filter into use, key Y in the filter row 
of one or more of the oscillators. Then set the cut-off frequency of 
the filter, and its characteristics. When the filter is set to have ‘Low 
Pass’ characteristics, the output is rich in lower tones and the higher 
overtones are reduced in volume. A warm full sound results. When 
the filter is set for ‘High pass’ a thinner tinny sound is heard. 

Increasing the resonance parameter enhances the filtering effect 
still further. 

SYNC and RING 

These combine the output of two oscillators in special ways. SYNC 
combines two outputs by logically ANDing them together. 
The result is hard to predict, so the best course is to try it and 
listen. In this program, SYNC combines oscillators 1 and 3 together. 
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Table 6.2 Timing of sounds 


Duration 

codes 

Time (sec) 
approx. 

Approx. 

Attack 

Equivalents 

Decay 1 Release 

00 

0 

0 

0 

01 

0.01 

1 


02 

0.04 

4 

2 

03 

0.09 

8 


04 

0.16 


5 

05 

0.25 

9 

8 

06 

0.36 



07 

0.49 

10 


08 

0.64 



09 

0.81 

11 

9 

10 

1 

12 


14 

2 



17 

3 

13 

12 

20 

4 



25 

5 

14 


30 

9 

15 

13 

40 

16 


14 

50 

25 


15 

60 

36 



70 

49 



80 

64 



90 

81 



99 

100 




With RING, the outputs are combined in a different way, 
producing a sound with a non-harmonic overtones. This usually 
gives a ringing effect, such as might be produced by a bell, or other 
resounding metallic object. 

Modulation 

Some of the most interesting effects are obtained by using the output 
of one oscillator (usually oscillator 3) to modulate the output of 
another. The output of the modulating oscillator is not heard as 
such. Instead it is read (by PEEKing registers in SID) and the value 
obtained is added to the parameters controlling one or more of the 
other oscillators. Usually it is multiplied by a scaling factor before it 
is added to the parameter. 
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Table 6.3 Modulation Options 


Code 

no. Parameter 
modulated 

By 

Subroutine 

0 

No modulation 


1000 

1 

Freq. osc. 1 

OSC3 

1100 

2 

Freq. oscs. 1 & 2 

OSC3 

1200 

3 

Freq. osc. 1 

ENV3 

1300 

4 

Freq. oscs. 1 & 2 

ENV3 

1400 

5 

(Freq. osc. 1 
)Freq. osc. 2 

OSC3 ^ 
ENV3) 

1500 

6 

Filter freq. 

OSC3 

1600 

7 

Filter freq. 

ENV3 

1700 

8 

Pulse width osc. 1 

OSC3 

1800 

9 

Pulse width oscs. 1 & 2 

ENV3 

1900 


Table 6.3 lists the options available in this program. All make use 
of the output from oscillator 3. When these options are selected, the 
output from oscillator 3 is automatically disconnected from the 
amplifier, so that its sound is not heard. Instead we PEEK one of 
two registers at regular intervals. From one of these (OSC3) we 
obtain a series of values which range between 0 and 255, following 
the actual waveform of the oscillations. If oscillator 3 is set to give 
triangular waves, for example, we obtain a series rising and falling 
steadily at the freqency of the waveform. If oscillator 3 is set to give a 
pulse waveform, the values are either 0 or 255. With a noise 
waveform they vary at random between these two extremes. If the 
value is added to a frequency value before this is POKEd to one of 
the other oscillators, its frequency sweeps over a given range. If 
oscillator 3 has a very low frequency (say 0.5 Hz), a siren effect is 
produced. The scaling factor determines the extent of the sweep. If 
oscillator 3 has a frequency of about 7 Hz and a small factor is used, 
a vibrato effect is produced. In the first stage of the program you set 
the scaling factor by keying in a number in the range 0 to about 400. 
The computer divides this number by 100 to arrive at the scaling 
factor. It may be possible to use a larger number up to the maximum 
999. The risk is that using a large factor may take the frequency out 
of the range that SID can produce. It is best to begin with a relatively 
low value (say 200), listen to the effect, and then try increasing the 
factor on the next trial. If sounds become very high-pitched or low- 
pitched do not increase the factor further. 
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0SC3 can also be added to the filter frequency (option 6). This 
causes the filtering to vary in a rhythmic manner, producing an 
effect similar to the ‘sample and hold’ of synthesisers. OSC3 can also 
be applied to the pulse width registers of the other two oscillators, 
producing many varied and weird sounds. In all these modulations 
it is usual for oscillator 3 to have a frequency lower than that of the 
oscillator which is being modulated. But there is fun in trying other 
combinations of frequencies. 

The other register used in modulation is ENV3, which follows the 
envelope of oscillator 3. It rises (attack) then falls slightly (decay), 
then may remain at a fixed level (sustain) until the oscillators are 
gated off. Since all are gated off at the same time the release period 
has no effect. Modulating the frequencies of oscillator 1 or 2 with 
values obtained from ENV3 (options 3,4 and 5) gives a ‘phaser’ 
effect. Try it for yourself, to see what this sounds like! If ENV3 is 
used to modulate the filter frequency (option 7), the Wah-Wah effect 
of a music synthesiser is obtainable. 


Hearing the sound 

After you have keyed in the parameters, press F3. The cursor jumps 
to the top of column 1, surrounding the figure T to indicate that 
this is what you are hearing. At the end of the first timed period, 
when the oscillators are gated off the colour of the cursor changes 
from pink to green. This tells you that it is in the second 
timed period. This is the release stage of the sound. As soon as the 
second timed period is finished, the cursor moves to the top of 
column 2, turns pink again, and you then hear the sound specified in 
that column. The cursor moves to each column in turn as you hear 
each sound and finally returns to the top of column 1. Press F3 to 
hear the sequence again, Press F7 if you want to adjust any of the 
parameters or press F1 if the sound is as you want it. What happens 
next is described in the section below. 


From sounds to programs 

Pressing FI takes you to view the POKEs and PEEKs that will be 
necessary in the lines which are to be included in your program. The 
POKEs are listed in order of register, which is not necessarily the 
same as the order in which these POKEs should be made in your 
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program (see later). Registers which do not have to be POKEd in 
connection with the given sound are not displayed. 

The base address of the SID is S (=54272) and all addresses to be 
POKEd are given with reference to this (e.g. S+2, S+13, etc). These 
numbers (2, 13, etc.) are the numbers by which the registers of SID 
are identified. Appendix P of the User Manual explains which these 
are. 

The POKEs for each oscillator are displayed first. These give you 
the high byte and low byte ready calculated. It should be noted that 
for notes of the musical scale, these do not give the same values as 
quoted in Appendix M of the User Manual. The values there are 
calculated on a slightly different basis. The program calculates its 
values in accordance with the equivalent table in Appendix E of the 
Commodore 64 Programmer’s Reference Guide. If oscillator 1 or 2 
is to have its output modulated by OSC3 or ENV 3, no POKEs are 
quoted for the frequency registers (see later). 

Next come POKEs to the pulse width registers. If you are not 
using a pulsed waveform, these are both zero and can be ignored. 

The POKE to the control register comes next. This decides the 
waveform and also whether or not SYNC or RING effects are 
required. The value is displayed as ‘GATE OFF WITH: POKE S+’ 
etc. This means that the value quoted is that used to turn off the 
oscillator. To turn on (gate on) the register, POKE the value quoted 
plus 1. 

Finally come the values to be POKEd to the ATTACK/DECAY 
and SUSTAIN/RELEASE register of each oscillator. 

After this we have the POKEs for the filter frequency registers, 
then that for the MODE/VOLUME register, which registers both 
‘MODE’ volume and filter characteristics. 

Extra information is provided if you are using one of the 
modulation options. The first item is the scale factor (‘SC. FCT.’). In 
the program the factors used with OSC3 are in array FQ(), while 
those for use with ENV3 are in array EQ(). Following these are the 
frequency values which have to be modulated before poking into the 
registers concerned. The values are given in this order: 

(1) frequency registers, osc. I. 

(2) frequency registers, osc. 2 
(PI) pulse width registers, osc. 1 
(P2) pulse width registers, osc. 2 
(F) filter frequency registers. 

The display prints all of these, though you may need to use only one 
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or two. The way to use these values is best explained by an example. 
If you want to modulate the frequency of oscillator 1, using OSC3, 
you will have chosen modulation option 1. The display informs you 
to use subroutine 1100. There, lines 1130 and 1140 show what to do. 
For FQ, substitute the value shown under item (1) above. Let us 
suppose this is ‘2145’. Suppose also that the scale factor shown on 
the screen is ‘3’. You will already have assigned the value 54272 to S 
and the value 256 to T at the beginning of your program, as on line 
40 of this program. The lines for modulating frequency in your 
program are: 

FQ = 2145 + PEEK(S+27)*3 

POKE S,FQ—lNT(FQ/T)*T:POKE S+1,FQ/T 

The display ends with the duration of the two timing periods of 
the sound (gated on to gated off, and gated off to ‘start of next 
phase’). You may need loops in your program to provide this timing. 
With some kinds of sound, it is enough to gate the sound on and then 
let the computer continue with other sections of the program while 
the sound continues. At a slightly later stage in the program, the 
sound is gated off. After this the computer need do nothing more, 
for the release phase (if any) continues without further intervention. 

With modulation effects, it is necessary to arrange for regular and 
frequent PEEKing of OSC3 or ENV3 followed by POKEing the 
scaled values to the frequency (or pulse width) registers. It may be 
possible to incorporate this into loops in the main program but, if 
there are none, a loop such as that in the subroutines of this program 
may be used. Small rapidly running loops are essential for the 
registers must be updated very often to make the modulation 
smooth. 

The order in which registers are to be POKEd needs consideration. 
A suitable order is that used in this program, beginning at line 540 
and continuing into one of the subroutines. The main stages are: 

Clear all registers (line 540). 

POKE attack/decay and sustain/release registers 
(5+6, 12+13,19+20 depending on which oscillators are used). 

POKE res/filt (23) and mode/vol (24). 

POKE pulse width registers, if used (2+3,9+10+16+17). 

POKE frequency registers (0+1, 7+8, 14+15). 

POKE filter frequency (21+22) if required. 

GATE sound on (POKE 4, 11, 18). 

DELAY for sound, including PEEKs to OSC3 and ENV 3, and 
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POKEs to other registers if modulation is used. 

GATE sound off (POKE 4, 11, 18). 

In the scheme above, any registers which are to be POKEd in the 
delay loop are not POKEd at the earlier stages. After you have noted 
the values you require, press the ‘up-arrow’ key. This takes you on to 
view the values for the second and subsequent phases (if any) of the 
sound. After noting the 8th phase you are returned to the beginning 
of the program. The screen clears and all is ready for you to create 
another sound. 


Keying in 


Some of the lines are long and so abbreviations must be used when 
typing. 

Control characters used are: 


CLEAR: lines 20, 740, 4600 
CRSR DOWN: line 900 
CTRL/2: line 720 


Program design 

20-130 initialising, including setting up tables from DATA 
statements. 

140 inputting a parameter. 

150 450 analysing parameter and making appropriate entries in 
arrays. 

460 -490 waiting for next command. 

500 520 silencing SID for phases in which all oscillators have 
zero frequency. 

530 cursor pink; to top of column 1. 

540 re-entry point for each sound of a sequence; clear all registers 
of SID. 

550-580 initial POKEs. 

590 to various subroutines for remaining POKEs. 

600 gate sounds off. 

610 640 cursor green;wait during release. 

650 move cursor to next column, unless sequence finished. 

660-700 cursor pink; wait for next command. 
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710 980 routine for displaying POKEs and PEEKs etc. 

1000 1970 subroutines for each modulation option; 

1000 1040 if no modulation. 

2000-2020 subroutine to print a character on coloured band. 

2100-2430 subroutines used in displaying POKEs. 

2500 2510 subroutine which converts a frequency value (FQ) 
into two bytes and POKEs them to a pair of frequency or pulse-width 
registers;S+R receives high byte, S+R+l receives low byte. 

2600-2610 subroutine to gate sounds off. 

3000-3060 subroutine for displaying within the cursor, para¬ 
meters entered at the keyboard. 

4000 4040 subroutine for moving cursor right. 

4500-4530 subroutine for moving cursor down. 

4600-4650 subroutine used when clearing screen for new set of 
parameters. 

5000 5020 DATA for cursor sprite. 

5030-5040 DATA for colour bands on screen. 

5050 5060 DATA for frequencies of highest octave. 

5070 DATA for note symbol table. 

5080 DATA for numbers of characters to be keyed for each row. 

5090 DATA for letters at left of each screen row. 


The program 


10 REM SOUNDS INCREDIBLE I 

20 PRINT'TJ" : POKE 52 , 48 : POKE 56.40:POKE 2 

040, 192 

30 FOR J=0 TO 35 = READ X : POKE 12288+J,X > N 
EXT : FOR J=0 TO 26 < POKE 12324+J , 0 : NEXT 
40 O«1024 : H-33296 = C-53282 : S-34272 = V=»5324 

0 = T-236 

50 POKE V , 24 : POKE V+1,50:POKE V+16,0:POK 

E V+23,1 : POKE V+29,1:POKE V+39,4 
60 DIM P<24,7>,BO!i<23),Fa2),F*<12>,NK!i< 
22 > 1 FOR J-0 TO 23=RERD BGfi<J):NEXT 

VO POKE 33265,PEEK<53265>OR64iPOKE C , 9 = P 
OKE C+l,12:POKE C + 2,2 

00 FORJ*0TO12 = RERDF < J > : NEXT sFORJ-0TO12 = R 
EHDF*CJ) :NEXT:FORJ-0TO22«RERDNKXCJ> =NEXT 
90 FOR J=»l TO 0 = CH*-R I QHT# C STR* C J> , 1 ? = OG 
«JI*3-4 : GOSUB 2000 • NEXT 

100 FOR jr=»l TO 23 = RERD CHf : DO-J#40 : OOSUB 

2000 : NEXT 
110 POKE V+27,1 

120 FOR J--0TO22 : FOR K-0TO7 : P C J , K > =*0 « NEXT 
: NEXT : FOR JT~0 TO 24 = POKE S+J , 0 » NEXT 
130 J-0 = K—0 = X—24 = V-50 'POKE V+21,1 

140 OOSUB 3000 : VC—VRL<C*> = IFC*«" " OR C*=> 
.. T .. then 460 

150 JJ*“JH(T7 : IF JO0 RND JOS RND JO 10 TH 
EN 210 
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160 IF VO0 THEN FQ-VC/- 06097 : GOTO 200 
170 H*«LEFT*<C*,LEN<C*>-n:N-0 
100 IF F*CN>ON* THEN N=»N-+-1 i IF N<12 THEN 
100 

190 NC-VFILCRIGHTiSCC*, 1 > > = FQ-FCNJ^tCr-NC 

> 

200 PC JJ/5.. K > »FQ 

210 IF JOl RND J <>6 RND JTOll THEN 270 
220 IF C*=» " T " THEN P< < JJ+13>/5, K> = CP< C J+ 
13> XS ^ K> RND 1S) + 16 : GOTO 270 

230 IF C*=- ,, S" THEN P<<JJ+13V5^K> = <P<CJJ 
+ 13J/5, K5RND13>+32 : GOTO 27*0 

240 IF C*"= ,, N" THEN P< < JJ+13J/5, K> = <P< < J+ 
13)/5<K)flND13)+128 : GOTO 270 

250 P<< J J-*- 13) /3 ,K)»<P<< JJ+ 13) /5 K > RND 1 5 > 

-*-64 

260 PC C JJT-*-S>X5, K) = INT<VC/T) : PC (JJ+3)/3< K 
> =VC-INT C VC/T> *T 

270 IF J»2QR J-70R J = 1 2THENP C CJJ+1 1 >X5.. K>=V 
Rl_ C LEFT* C C* > 2 > > * 1 S+VRL C R I GHT* C C* > 2 > > 

200 I FJ-30RJ-80RJ- 1 3THENP C C JJ+3 > X5 .. K > =VR 
L<LEFT*CC*, 2 > )#16+VRL(RIGHT$CC*, 2} > 

290 FR«=>2TC < J~4)/5) = IFCt~"N"THENIFJ=40RJ = 
90RJ»14THENPC23,K)=PC23,K>RNDC255-FR> 

300 IF C*= ,, V THEN IFJ=40RJ=90RJ=14 THEN 
P C 23 j K) = <PC23 t K >RND C 255—FR) )+FR 
310 IF J=15 RND C*<> M S" RND C*<>”R" THEN 

P C 4 .. K > =P C4 / K) RND249 

320 IF J=13 RND Ca^^S" THEN PC4 J K> = CPC4.. 

K > RND249 > -*-2 

330 IF J=15 RND C*=”R" THEN PC4,K)=CPC4< 

K ) RND233 > 4.20 

340 IF J=16 THEN P<21,K)=VC- IF RIGHTSCC 

* ^ 1 > = " K *' THEN PC21/K)=P<21/K)*1000 

350 IF J=>17- THEN PC24j K)“PC24^ K)PlNB143 


360 IF J=» 1 7 
24 * K > >-*-16 

RND 

C*="LP" 

THEN 

P C 24 , 

K)=CP< 

37’0 IF J“17 
24 j K > >-*-32 

RND 

C**"BP" 

THEN 

PC24, 

K > = C P C 

380 IF J=17 
24, K > >-*-64 

RND 

C*= " HP “ 

THEN 

P C 24 , 

K)=CP< 

390 IF J*17 
24, K > >-*-80 

RND 

C*="BR" 

THEN 

P C 24 , 

K ) == C P C 


400 IF J«18 THEN PC23<K)=<PC23jK)RND15)+ 
1 6 * VC 

410 IF J=19 THEN CC C K ) =VRL C LEFT* C C* . 1 ) > -*- 

1:FQCK)=VRLCRIGHT*CC*,3))/100 

420 IF J=20 THEN EQ C K > => VRL C C* > X 1 00 

430 IF CC CK)>1 THEN PC24, K)«=CPC24.. K)RND1 

27) + lS8 : PC23, K><=PC23- K)RND233 

440 IF J=21 THEN PC24j K> = CPC24j K)RND240) 
+VC 

450 IF J-22 THEN DJi<0, K)=VRL<LEFTiCC*, 2) 
> - D54 C 1 j K ) =VRL C R I GHTt C C* .• 2 > > 

460 IF CH^«" t" THEN GOSUB 4600 : GOTO 90 
47-0 IF CH*=CHR*C136) THEN GOSUB 4500 : GOT 
O 140 

430 IF CH**CHRSC135) THEN GOSUB 4000:GOT 
O 140 

490 IF CHi=CHR*C 133 > THEN POKE V24 : POKE 
V-*-l,50 : POKE V+16 / 0 : GOTO 130 
500 FOR K=0 TO T 

510 IF PC0j K)=0 RND PC7,K)=0 RND P C 1 4 .■ K > 
=0 THEN PC24<K)=P(24<K)RND240 
520 NEXT 

530 K=0 - X=*24 : V=42 : POKE V^X=POKE V+LV^PO 

KE V+16,0 

540 FOR J=0 TO 24 : POKE S-*- J, 0 = NEXT 
550 POKE S-*-5ji P(3 j K) POKE 3+6iP<S,K) :POKE 
S+12,PC12.K) 
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560 POKE S+13jP<13<K) : POKE S-*- 16 / P06< K) : 
POKE S+17;P(17,K) 

570 POKE S-+ 19/P<19,K) : POKE S+20< p<20, «> : 
POKE 3+23 , P C 23 .. K > POKE S+24 , R C 24 , K > 

580 POKE V+39, 4 : TU=DXC0, K>*DXC0, K > * . 6 : TI 
*="000000" : IF CO <K)=0 THEN CC<K) = 1 
590 ON CC C K > GOSUB 1000,1100, 1200^ 1300, 1 
400,1500,1600,1700,1000,1900 

600 POKE S-+4,PC4,K>:POKE S+l1,P<11,K)TO 
KE S+18,PC18,K> 

610 POKE V+39,5 

620 TU=DXCl,K)iHBXa,K»t!.6 

630 TI#="000000" 

640 IF TKTU THEN 640 

650 GOSUB 4000 IF K>0 THEM 540 

660 POKE V+39,4 

670 GET fl*: IF R#=" " THEN 670 
680 IF R*»CHR*<134> THEN 530 

690 IF fl*=CHR*(136) THEN POKE V,24 POKE 

V-+1,50: POKE V+16, 0 : GOTO 130 

700 IF R*—"T" THEN GOSUB 4600:GOTO 90 

710 POKE V+21,0 

720 PRINT" =(" : FOR K = 0 TO 7 

730 IF P<24,K)RND15=0 THEN 970 

740 PRINT"3PHRSE" ; K-+1 ; TRB<20) S= " ; S 

750 IF PC0,K>=0 THEN 300 

760 R=0 : PRINTCHRSC 177> ; : IF CC<K»1 RND C 

CCKX7 THEN 730 
770 GOSUB 2100 

730 IF CCCKX9 RND PC4, K)RND32=32 THEN G 

OSUB 2200 

790 GOSUB 2300 

800 IF PC7,K>=0 THEN 330 

810 R=7TRINTCHR*a78)j IF CCCK>=3 OR CC 
CK>>4 RND CCCKX7 THEN 330 
820 GOSUB 2100 

330 IF CCCKX10 RND PC 1 1 , K>RND32=32 THEN 
GOSUB 2200 
840 GOSUB 2300 

330 R=14 : PRINTCHRSC 179 7 r '■ IF PC14,K>=0 TH 

EN 890 

860 GOSUB 2100 

870 IF PC 18,K>RND32=32 THEN GOSUB 2200 
880 GOSUB 2300 

890 IF PC21,K>=0 THEN 920 

900 FQ=PC21,K> =PRINT" ^FILTER : POKE 3+21, 

" ; INT CFQ-IHT<FQ/T)*T) i 

910 PRINT-POKE S+22,INTCFQ/TJ 

920 IF P<23,K5>0 THEN PRINT"RES/FILT- PO 

KE S+23, ";P < 23,K > 

930 PRINT"MODE7VOL : POKE S+24,";PC24,K) : 
PRINT-USE SUBROUTINE" i CCCK>*100+900 
940 IF FQCK>>0 THEN PRINT"SC. FCT, FQ < K > = " 
;FQ<K); : GOSUB 2400 

950 IF EQCK>>0 THEN PRINT"SC.FCT,EQCK>=" 
i EQ < K > ; =GOSUB 2400 

960 PR I NT " DURRT I ON = " ; DX C 0 , K > s*DJ£ <0, K)/l 00 
; "RND" ; DK< 1 , K>*D>:C 1 , KV100J "SEC. " 

970 GET R*-IF R*<>"T" THEN 970 
980 NEXT K = GOSUB 4600 : GOTO 90 

1000 POKE S+2,PC2,K>=POKE 3+3,PC3,K) : POK 
E S+9,PCS,K> : POKE S+10,PC10,K> 

1010 R=0:GOSUB 2500 : R=7=GOSUB 2500:R=14: 

GOSUB 2500=R=21=GOSUB 2500 

1020 GOSUB 2600 

1030 IF TKTU THEN 1030 

1040 RETURN 

1100 POKE 3+2,PC2,K>=POKE S+3,PC3,K> : POK 
E 3+9,PC9,K> : POKE S+10,PC10,K> 
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1110 R=7:GOSUB 2500=R =14:GOSUE 2500:R=21 

:GOSUB 2500 
1120 GOSUB 2600 

1130 FQ=P<0 J K)+PEEK(S+27)i«FQCK) 

1140 POKE S, FQ-XNT<FQ7T)*T : POKE S+UFQ7T 
1150 IF TICTU THEN 1130 
1160 RETURN 

1200 POKE S-+-2 j. P <C 2 .■ K > : POKE S+3j P < 3 j K : POK 
E S-*-9> j PO, K > : POKE S+10,Pa0,K) 

1210 R=14:GOSUB 2500 : R=21■GOSUB 2500 
1220 GOSUB 2600 

1230 FQ=P<0,K)+PEEK<S+27>#FQ(K> 

1240 POKE SiF«-INT<FQ/T>#T:POKE S+liFG7T 
1250 FQ»P< 7,K >+PEEK< S+27> *FQ<K > 

1 260 POKE S+-7 .. FQ-I NT < FQ7T > *T : POKE S -+-8 FQ 
ST 

1270 IF TI<TU THEN 1230 
1280 RETURN 

1300 POKE S+2iP<2iK> ^POKE S+3iP(3iK) : POK 
E S+9iP<9iK) : POKE S+10iP(10iK) 

1310 R=7 : GOSUB 2500 : R= 1 4 : GOSUB 250© : R=2 1 
:GOSUB 2500 
1320 GOSUB 2600 

133© FQ=R <0iK)+PEEK< S+28> *EQ < K > 

1340 POKE SiFQ-INT < FQ7T > *T : POKE S+l-FQ/T 
1350 IF TKTU THEN 1330 
1360 RETURN 

1 40© POKE S-+2 .i P < 2 .. K > - POKE S-«-3 ,P(3iK) : POK 
E S-»-<?., p<9, K> : POKE S+10iPC10iK) 

1410 R=14:GOSUB 2500 : R=21 : GOSUB 2500 

1420 GOSUB 260© 

1430 FQ=P<0iK)+PEEK < S+28)*EQ C K > 

144© POKE SFQ-INT < FQ/T> *T POKE S-+1, FQ/T 
1450 FQ=PC7iK)+PEEKCS+23>*EQ(K) 

1460 POKE S+7iFQ-INTCFQ/T>#T:POKE S+ 81 FQ 
ST 

147-0 IF TICTU THEN 143© 

1480 RETURN 

1500 POKE S-*-2 iP<2iK) : POKE S+3iPC3,K> T'OK 
E S+9iP(9iK) : POKE S+10iP<10iK> 

1510 R=14:GOSUB 2500 R=21=GOSUB 2500 

1520 GOSUB 260© 

1530 FQ=PC0iK)+PEEK<S+27)*FQ(K> 

1540 POKE S.. FQ-INT<FQ7T?*T : POKE S+liFQ/T 
1550 FQ=P(7iK)+PEEK(S+28>*EQ<K) 

1560 POKE S-+-7 i FQ— I NT <FQ/T>#T ■ POKE S+SiFQ 
ST 

157-0 IF TICTU THEN 1530 
1580 RETURN 

1600 POKE S-*-2 iP<2iK) : POKE S+3, PC3i K> : POK 
E S+9iPG,K5 :POKE S+10iP<10iK) 

1610 R»0:GOSUB 2500 : R=7:GOSUB 2500 R=14: 

GOSUB 2500 

1620 GOSUB 2600 

1630 FQ=>P<21iK>+PEEK<S+27)#FQ<K> 

1 640 POKE S-+-2 1 .. FQ— I NT < FQ7T > *T : POKE 3+22 .. 
FQ/T 

1650 IF TICTU THEN 163© 

1660 RETURN 

1700 POKE S-+-2 iPC2iK) : POKE S+3i PC3i KJ : POK 
E S+9iP<9iK>:POKE S+10iPa©,K) 

17-10 R —0 : GOSUB 2500'R=7:GOSUB 2500 = R= 1 4 : 

GOSUB 2500 

17-20 GOSUB 260© 

1730 FO=P < 21 i K >+PEEK< S+28> *EQ<K > 

174© POKE S+21iFQ-INT<FQ/T>#T:POKE S+22i 
FQ/T 

1750 IF TICTU THEN 173© 

1760 RETURN 
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1 ©00 POKE S-«-© ; PC9j K J : POKE S-*- 10.. PU0.K) 

IS10 R = 0 : OOSUB 2500:R=7 ^ GOSUB 2500 :R=14: 
GOSUB 2500 : R=21 : GOSUB 2500 
1S20 GOSUB 2600 

1S30 FQ=P (2j K>+PC3, K>#T+PEEKCS+27')*FQ''.K> 
1 640 POKE S*2 .. FQ- I NT < FQ/T 5 = POKE S-*-3 . FQ 

XT 

1 ©50 IF TKTU THEN 1830 
1860 RETURN 

1900 R=0:GOSUB 2500:R=7:GOSUB 2500:R=14: 

GOSUB 2500:R=2 1=GOSUB 2500 
1910 GOSUB 2600 

1 ©20 FQ"P <2,K> +P < 3 .• K > #TP+PEEK < S+27 > *FQ < K 
? 

1930 POKE S+2,FQ-INT<FQ/T)*T:pOKE S+3.FQ 
XT 

1 ©40 FQ=P < © .. K > 4-P (10;K? *T+PEEK < S+27 > J+sFQ < K 

> 

1950 POKE S+9j FQ— I NT <FQXT>#T : POKE S-*-1 © .■ F 
QXT 

1960 IF TKTU THEN 1 ©20 
1970 RETURN 

2000 CH-nSC < CHJ > : IF CH>63 THEN CH=CH-64 
2010 POKE G+GG,CH+BGK<INTCGGX40)) POKE H 
+GG -■ 1 

2020 RETURN 

2100 FQ = P < R .■ K > : PR I NT " : POKE 3+ " ; R ; " , " .: I N 
T < FQ-INT C FQXT> i*T > ; 

2110 PRINT" : POKE S+“ J R+l J 11 . " ; INT(FQXT) 
2120 RETURN 

2200 PRINT"POKE 3+"» R+2J "r "j P<R + 2/ K> J " ■ 
POKE S-+- ” ; R + 3 i " , " ; INT<P< R + 3 .• K > > 

2210 RETURN 

2300 PRINT"GRTE OFF WITH: POKE S+" R+4;" 

.. " J P''.R+4, K> 

2310 PRINT"POKE 3+" ; R+5Xi*' i P<R + 5' K) ; " : 
POKE S-*- " ; R+6 ; " , " ; P < Rhh© K > 

2320 RETURN 

2400 PR I NT " < 1 > " ; I NT CP<C0^K>>; " < 2 > ” I NT <P< 
7 i K > > 

24 1 0 PR I NT " < P 1 > " ; I NT < P < 3 .• K > *T+P < 2 , K > > ” < 

P2 1 ; I NT CPC 10.. K > *T-+-P C © .. K > > .: 

2420 PRINT" <F> " ; INT<PC22^ K)*T+P<21 j. K ? > 

2430 RETURN 

2500 FQ=P(R, K> = POKE S+R,. FQ-INT<FQXT)*T : P 
OKE S+R+l t FQXT 
2510 RETURN 

2600 POKE S+4,P<4,K> + 1 TOKE S+U.PC11K) 
+ 1 : POKE S-+-13; PC 18j K > 1 

2610 RETURN 

3000 NK=0:CH$="":C*="" 

3010 GET CHi:IF CH*="" THEN 3010 
3020 IF CHS=CHRSC 20 > THEN 3000 

3030 IF RSC (CHS )>132 FIND RSCCCH#><137 OR 
CH=e="T" THEN RETURN 
3040 GG=<J+1)*40+K#5+NK+l GOSUB 2000 

3050 C*=Cf+CH*:NK=HK+l : IF NK<NKX<J) THEN 
3010 

3060 CH*=CHR*<136 > RETURN 
4000 X=X+40 ■■ K=K-t- 1 

4010 IF X=264 THEN X=8:POKE V+16,1 
4020 IF X=©S THEN X=24 : POKE V+16,0:K=0 
4©30 POKE V,X 
4040 RETURN 
4500 V = V+8: J«=J+1 

4510 IF V=234 THEN V=50 : -J = 0 : GOSUB 4000 

4520 POKE V+1,V 

4530 RETURN 

4600 PR I NT “71" : RESTORE 
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4610 FOR Z=1 TO 7"3 : READ ZZ : NEXT 

4620 FOR Z=1 TO 13:REfiD 2ZS:NEXT 

4630 FOR Z=1 TO 23:READ 22 : NEXT 

4640 POKE v_. 24: POKE v+l,50:ROKE V+16<0 

4650 RETURN 

5000 DRTR 63,255,252,127,255,254,255,255 

, 255, 255.. 255, 255 

5010 BRTR 248,0,15,240,0,15,240,0,15,240 

, 0 , 15 

5020 BRTR 255 255 -■ 255 , 255 , 255 , 255 , 1 27 , 25 

5 .. 254 , S3,255,252 

5030 BRTR 0,64,64,64,64,64,128,123,128,1 

23, 123.- 132, 132, 132, 132, 132 

5040 BRTR 0,0,0,8,64,64,123,123 

5050 BRTR 34334,36376,33533,40330,43253, 

45^30 

5060 BRTR 43556,51443,54502,57743,61176, 

64314,0 

5020 BRTR C , C# , D , B4* , E , F , F4* , O , 04* , R , R4* , B , 0 

5030 BRTR 4,4, 4,4, 1,4,4,4, 4, 1,4, 4,4,4, 1, 

1,3,2, 2,4,3, 2,4 

5030 BRTR P , Ul , R , S , F , P , W , R , 3 , F , R , W , R , S , F , 

S , F , C , R , O , E , V , B 


7 

Compare It 



A gardener grows two varieties of tomatoes in his greenhouse. He 
has the same number of plants of each variety and looks after them 
in the same way. Each season he keeps a record of how many 
kilograms of tomatoes are produced by all of the plants of each 
variety. After six seasons he looks at his figures: 


Variety 

Seasonal production (kg) 



Catsup 

100 120 150 125 

160 

130 

Ketchup 

140 110 180 150 

165 

125 


The total production of Catsup is 785 kg, while that of Ketchup is 
870. There is a difference - but this is to be expected. After all, it 
would be very unusual if both varieties gave exactly the same total. 
The figures show that some years give better yields for both varieties, 
some give worse for both. Although Ketchup has the higher total, 
there are two years in which it does worse that Catsup. The situation 
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is far from clear-cut. The gardener wants to know if Ketchup is a 
higher-yielding variety than Catsup in the long run. 

If only figures would give a straightforward answer to our 
queries! More often than not, there are uncertainties, as in the story 
above. The difference between the yields of the two varieties might 
be due to Ketchup being a better-yielding variety overall. But it is 
also possible that the difference is merely the result of chance 
variations, of the kind that are obviously occurring from year to 
year. What this program does is to help you compare two sets of data 
to see if differences between two sets are more likely to be real, or 
more likely to be due to chance. The program tells you how 
significant the difference is. 

The program is not limited to finding out about tomatoes. It has 
extremely wide applications. In almost any instance in which there 
are two sets of data to be compared, this program can be brought 
into use. A factory supervisor can use it to compare production on 
two machines or on two production lines. A grocer can use it to 
compare sales of two different brands of foodstuff. A trainer can use 
it to compare times of two horses or greyhounds. A sales manager 
can use it to compare the weekly sales records of two sales 
representatives. Other things being equal, if the program shows a 
significant difference between their sales totals there is a likelihood 
that one is a better at the job than the other. An engineer can use the 
program in quality control; by comparing dimensions of parts 
manufactured on two different machines or by two different 
techniques it is possible to establish which gives the greater 
precision. A medical researcher or doctor can use the program to 
compare two different treatments given to two sets of patients. This 
example has many parallels in horticulture, agriculture and in the 
biological sciences generally. 

The program is able to accept several kinds of data. It accepts 
values such as those in the table at the beginning of the chapter, and 
can also accept numbers with decimal places and negative numbers. 
You could use it to compare weekly profits of two shops; in any 
given week a shop might make a profit (positive) or a loss (negative). 
Both profits and losses may be used in the computation. 

The usefulness of the programs is widened by the fact that it 
works just as well with numbers which represent ranks, grades or 
ratings as it does with ordinary numbers. If you are trying to find out 
which of two varieties of tomato have the best taste, it is not possible 
to rate the taste in kilograms or any other recognised unit. Instead 
you would need to ask, say, 20 different people to taste samples of 
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the tomatoes. They are asked to grade the two varieties on a scale 
running from 1 (poor), through 5 (average) to 10 (excellent). The sets 
of grades for each variety are compared, using the program. 

Grading can be used in many kinds of applications where 
quantitative measurements are difficult or impossible: 

Tasting of foods, tea, wine. 

Assessing visual features, such as the colour of fabrics. 

Rating human reactions, such as satisfaction with a certain 
product or service, happiness in a givenjob, friendliness with 
other employees, ability to cope with deadlines. 

There seems to be no end to the applications of Compare It! 

If you bear one or two points in mind when using the program you 
will be more likely to get a clear answer from the test. There must be 
at least five items of data in each of the two sets to be compared. 
However, there need not be the same number of items in each: you 
could have fifteen passers-by give their rating on one TV 
program, while twenty are interviewed about another program. But 
the more nearly equal the sizes of two groups, the clearer the results 
will be. 


How to use the program 

All you have to do is to key in the data and then wait a few tens of 
seconds for the computer to work out the results. 

First of all you are asked to give a name to each of the two sets of 
data which are to be compared. You might type in ‘Catsup’ and 
‘Ketchup’ if you are comparing two varieties of tomato, for example. 
Then you are asked to key in the items of one set of data. Key them in 
one after the other, pressing RETURN after you have entered each 
item. The program allows you to key in as many as 50 items in each 
set. When you have keyed in all the data of one set, key in ‘9999’ as 
the final item. This figure will not be included among the data. It is 
just a convenient way of letting the computer know when the last 
item has been typed in. 

Then you are asked to type in the data of the second set, in the 
same way. 

As you finish entering each set, you are asked ‘OK? Y/N’. This 
gives you a chance to start again if you have made a mistake in 
keying. When you key Y after the second set of data, the screen 
clears and a message is displayed reminding you that some time may 
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be needed for the calculations to be completed. If you only have say 
10 or 20 items in each set, only a few tens of seconds will be required, 
but it could take a minute or two with larger amounts of data. 

The final display gives you the computer’s assessment of how 
much meaning you may safely attach to your data. With the tomato 
data you will see a message like this: 

THERE IS A CHANCE BETWEEN 60% AND 65% THAT 
THE CATSUP DATA DIFFERS FROM THE KETCHUP 
DATA’ 

This statement is explained as follows. The differences between 
the total yields of the two varieties must be due to one of two things: 
(1) One is a truly better yielding variety than the other, or (2) there is 
no real difference between the varieties; differences are simply due to 
chance variations from plant to plant and from season to season. 

From what the computer now displays you conclude that there is 
a 60% to 65% chance of the first explanation being the true one. 
Conversely there is a 40% to 35% chance it is a merely random 
difference. 

Although there is a difference between the crops over the years, 
this difference is not significant when compared with the equally 
large variations in yield between plants and from year to year. If the 
chance of there being a real difference is only 60% to 65% it is not 
sensible to base any drastic decision on the yield figures. There is no 
real reason for giving up growing Catsup tomatoes, for example. If 
the gardener still wants to know if one variety is better than the 
other, he must continue for a few more years and gather more data. 

The program tell us the likelihood of the difference between the 
two sets of figures being significant (likely — 90% or more: unlikely 
— 60% or more). 

Usually, as has been implied so far, there is a difference between 
the average of one set and that of the other. The aim of the user is to 
try to show that this difference is not just a random one. 

It is also possible to have two sets of data with averages which do 
not differ markedly, but in which the individual values of one set 
are spread over a wider range than those of the other. For example, 
you might have the weekly sales figures for two sweet shops both of 
which have the same annual turnover. One might be in an inland 
town where there are regular customers and its weekly profits are 
steady throughout the year. The other might be in a seaside town, 
showing vast profits during the summer months but relatively small 
profits in the winter. 
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This program detects either kinds of difference, differences of 
average values and differences of the amount of spread. It does not 
tell you which kind of difference (if any) occurs in your figures. 
Having obtained a result which declares that the two sets of data are 
significantly different, inspect the original figures to see what kind of 
difference they display. 

Keying in 

Many of the routines in this program are the same as those used in 
Chapter 11, Sales Trend. The lines concerned are: 210-370, 
660-780, 820-850 and 890-1020. If you have already keyed in Sales 
Trend save time by LOADing it, deleting the lines you do not need, 
and then typing in the lines required for Compare It. 

Control characters used are: 

CLEAR: lines 40, 80, 110, 190, 790, 860 
CRSR DOWN: lines 40, 50, 80, 110, 130, 190 (2), 790, 800, 
810, 860 (1, 1), 880, 890 (5) 

unlisted: 

C=/8: line 40 (after the ‘Q’) 

Program design 


20 30 initialising. 

40-160 collecting two sets of data. 

170-180 transferring data to arrays, ready for processing. 
190 warning of delay. 

200-370 sorting data into numerical order. 

380 620 resolving tied values. 

630 650 counting the number of runs. 

660-690 calculating the statistics. 

700 880 assessing probabilities and displaying the results. 
890 910 inviting another analysis. 

1000 1020 statistical look-up table. 
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Points of interest 

Note for the more statistically-minded reader: this program uses the 
Wald-Wolfowitz runs test adapted for analysing two-sample data. 
Ties are resolved alternately one way or the other, any odd tie being 
resolved at random. The DATA statements contain the values of z 
associated with selected probability (one-tailed) levels. 


The program 


10 REM •*»«*< COMPARE IT ** 

20 DIM D(2,30),Sa01),R<10i) 

30 POKE 33281,11 

40 INPUT"n» NAME FOR FIRST SET OF DATA"; 
N*C 1 > 

30 INPUT")# NAME FOR SECOND SET OF DATA" i 
N*C2> 

60 FOR JT=1 TO 2 
70 NCJT>=*1 

00 DC JT, K>-0 = PRINT"CKEV IN DATA FOR .:N*C 

j>; 

90 PRINTNC JT> ; : INPUT" "jDCJ,NCJ)) 

100 IF NCJXS0 AMD DC JT , NCJ> >09999 THEN 
NCJ) -N C JT 5 + 1 : GOTO 90 

110 PRINT “ dDHTA FOR "1N#CJ)J" I S = W" 

120 NCJ)-NCJ>-1:FOR K-l TO N<J):PRINTDCJ 
,K>;:NEXT 

130 PRINT.PR I NT " WALL OK? CVZNV 

140 GET A*:IF R*— "» THEN 140 
190 IF R#<>"V" THEN 70 
160 NEXT 

170 FOR J—l TO NC 1 > : SC J5-DC 1 , J> = RC J>-0 = N 
EXT 

100 FOR J-*l TO N<2> : SC J+NC 1 > >«D(2, J ? = RC J 
+N(1 U >-l :NEXT 

190 PR I NT " r3" 1 TAB C 7 ) " WMCOMPUT I NO MAV T0KE 
0 WHILE" 

200 Ml-l:NT-NCl)+NC2> 

210 8SC1, 1>«1 !S8U,2>-NT 

220 M2-SSCM1, 1 > :M3-SSCM1* 2> :Ml-Ml-1 

230 M4-M2 : MS—M3 : M6-S C I NT C RND C 1 > * C M3-M2 ? 

.5J+M2) 

240 IF SCM4XM6 THEN M4-M4+1 : GOTO 240 

250 IF MSCS<M3) THEN M3-M3-i:OOTO 230 

260 IF M4>M5 THEN 200 

270 M7— S C M4 > i S C M4 > -S C MS > s S C MS > —M7 s M9-R C M 

4 5 • R<M4>-RCM3> :RCM5>-M9:M4-M4+1 I MS-MS—1 

200 IF M4C-M5 THEN 240 

290 IF MS—M2>-M3—M4 THEN 330 

300 IF M4>*M3 THEN 320 

310 Ml—Ml-t-1 : SSCM1 , 1 >—M4 : SSCM1 , 2 > «M3 
320 M3—MS : OOTO 360 

330 IF M2>-M5 THEN 350 

340 ril-Ml + 1 : SSCM1 , 1 >-M2 : SSCM1 .. 2 5-MS 
350 M2-M4 

360 IF M2CM3 THEN 230 
370 IF M1>0 THEN 220 
300 TS-1:TT-0:RS-0:RF-0 
000 IF TS>N,T THEN 550 

400 IF SCTS>C>8CT8+1 > THEN TS«TS+1 : GOTO 
300 
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410 TF-T8+1 

■420 1F TF>NT THEN 550 

430 IF S<TF)*SCTF+1> THEN TF-TF+1:GOTO 4 

20 

■440 NZ—0 

430 FOR J-TS TO TF 

460 IF R<J>-0 THEN NZ-N2+1 

470 NEXT 

400 IF NZ«0 OR NZ-TF-T8+1 THEN T8-TF+1:Q 

OTO 390 

490 RS-TS:RF«TF 

500 FOR J-TS TO TS+NZ—1:R < J > = FT : NEXT 
510 IF FT—0 THEN FT—1 ^ GOTO 330 
520 FT—0 

530 FOR J-TS+NZ TO TF '• R( J)=»FT : NEXT 

540 TS-TF+1:QOTO 390 

350 IF FT—0 OR RS—0 THEN 620 

560 IF RNDO) <.5 THEN 620 

570 NZ=0=FOR J-RS TO RF 

5©0 IF RCJ)-0 THEN NZ-NZ+1 

390 NEXT 

600 FOR J—RS TO RF—NZ : R<J>—1 : NEXT 

610 FOR J-RF-NZ+1 TO RF:R<J>=0:NEXT 

620 RCNT+1)“R<NT)+1 

630 U-0=FOR J—X TO NT 

640 IF R< JT>OR< J-4-1 > THEN U-U-H 

630 NEXT J 

660 UU-2WN<l)HtN<2>/<N<l)+NC2?) + l 

670 S—SQR < 2*N < 1 > *N < 2 > * C 2#N C 1 ? WN < 2 > —H <1)- 

N<2>>X<N<1 >+N<2> > T2^” <N<1)+N<2> + 1)> 

6Q0 Z-<RBS<UU-U>-.5>/S 

690 IF Z<0 THEN Z-.001 

700 IF N < 1 > 4lN <2X18 OR N<1><5 OR N C 2 X5 
THEN PRINT"NOT ENOUGH DRTfl" '■ GOTO 900 
710 R-0 

720 R-R+l-READ ZL 

730 IF Zl_—Z THEN 750 

740 IF ZL>Z THEN 720 

730 IF R<10 THEN P-R/10 

760 IF R>9 AND R<19 THEN P-R-9 

770 IF R>1S THEN P-10+5ltKR-19) 

780 IF ZL.-CZ THEN 030 

790 PRINT'TJO THERE IS RM00-P; "X" CHRNC 
E THRT THE" 

000 PRINT"W ”;N*<1>;" DRTH DIFFERS FROM 
THE " 

010 PRINT"* ";N*<2?;" DRTR” 

020 OOTO 090 

S30 IF R<11 THEN PL-CR-lJ/10 

040 IF R>10 RND R<20 THEN PL-R-10 

350 IF R>19 THEN PL-10+5*<R-20> 

060 PRINT TIM THERE IS R CHRNCE BETWEEN"; 
100—P; RNDW" 

870 PR I NT 100—PL; " y. THRT THE " N* < 1 > ; " D 

FHT’O 11 

000 PRINT"* DIFFERS FROM THE ; N* C 2 > ; “ D 
RTH" 

090 PRINTTRB<3>"WWWWWK SPRCE BRR FOR RNO 
THER RNflLVSIS >" 

900 GET R«:IF R*<>" ” THEN 900 

910 RESTORE:GOTO 40 

1000 DRTR 3. 083/ 2.00 ■ 2. 75, 2.65, 2. 575.- 2. 3 
L2. 455 / 2-41/2. 365 

1010 DRTR 2.327,2.052,1.38L1.751,1.645, 
1.553/ 1 - 476, 1.403 

1020 DRTR 1.341/1.282/1.037/. 

24 / . 303/ .253 z . 126,0 


042/.675,.3 
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n CMTca bcsults 

2 > VtCH BCSULTS 
3> TOKCMT BCSULTS 
4) FINISH 

SCLCCT IV BCCSSIN6 NUHBdCD ItV 





Here is a way of keeping a record of racing performance, whether 
of horses, sprinters, motor-cyclists, or even the Oxford and 
Cambridge rowing crews. As well as storing racing information, the 
program is able to use this data to predict the likely winner of the 
next race. 


How to use the program 

When you RUN the program, you are first asked ‘RUNNERS 
TAPE READY?’. This refers to the tape (or tapes) on which 
previous data is stored. If you are using the program for the first 
time, you key N in response to this question. Incidentally, though 
the messages in the program always refer to ‘RUNNERS’, this can 
be taken to be any kind of person, animal or vehicle which races. 

If you key N, you are taken straight to the Menu, which is 
described later. If you already have data on tape, put the tape in the 
Datassette, rewound to the beginning. Then key Y; press ‘PLAY’ 
when asked to do so. It usually takes only a minute or two to transfer 
the data from the tape to the memory of the computer. 


* 
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The Menu offers you 4 options: 

(1) Enter results: Use this when you want to record the results of 
races. When you select this option, you are asked to type in the name 
of each runner and the place in which they finished the race. For the 
place, key T, ‘2’, or ‘3’ for 1st, 2nd and 3rd respectively; key ‘0’ for 
any other result. The computer asks you to check and confirm that 
what you have entered is correct. It does this by asking‘ALL OK?’. If 
all is correct, type Y, otherwise type N, which gives you the chance of 
re-entering the runner’s name and place correctly. 

You are then asked ‘MORE?’, which means ‘Do you want to 
record any more results’. If so, key Y, and you are then able to enter 
the next result. If not, key N to return to the Menu. 

(2) View result: This option lets you see all or part of the data which 
you have entered. You are asked to type in the name of the runner. 
Press RETU RN when you have done this. The computer then looks 
through its stored information and displays all the placings for that 
runner, in order. If you get a blank screen at this stage it might be 
that there is no information about the runner you have named, or 
you have misspelt the runner’s name. In the latter case, just try again. 
If you want to look through all the sorted information from 
beginning to end, do not type in the name, but simply press 
RETURN. You will then be shown a list of the runners’ names, 
followed by their placings. When you have finished with this option, 
press the space-bar to get back to the Menu. 

(3) Forecast results: You are asked to enter the names of runners 
which are to take part in a forthcoming race. There is no point in 
typing in the names of runners whom you know not to be included in 
your records, though it will not upset the calculation if you type in 
such names. Press RETURN after you type each name and you will 
be asked ‘MORE?’, to which you respond by keying Y until your list 
is complete. When all runners have been entered, key N. 

Next you will see the message: ‘SCORES (0 9) FOR: PLACE I’. 
This allows you to vary the way in which the computer rates the 
results of the runners’ performances. The idea is that runners who 
come in the first three places score points according to the place. 
You might decide, for example, that a first place is worth six points, 
a second place is worth three points and a third place is worth only 
one point. For each place in turn you are asked to key a number 
between 0 and 9. 

Finally, you are able to decide to what extent the computer should 
place emphasis on the more recent races when it does its predictions. 
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You may think that all of a runner’s previous placings should be 
taken into account equally when working out the forecast. Or you 
may decide that recent form is far more important than performance 
earlier in the season. The program lets you tell the computer to 
discount the results of previous races in a systematic way. For 
example, if you answer the question ‘DISCOUNT (0 100)?’ by 
keying, say, ‘50’, and then pressing RETURN, the computer will 
then average out a runner’s placings as follows: 

The most recent race: 100% of score. 

The race before that: 50% of score. 

The race before that: 25% of score. 

The race before that: 12.5% of score. 

At each race (working backward through the list in its memory) the 
percentage of score taken into account is reduced by 50%. If you 
had entered, say‘90’, the percentages would have been: 100%, 90%, 
81% (90% of 90%), 72.9% (90% of 90% of 90%), 65.61% and so on. 
The second example takes more account of earlier placings than the 
first example did. 

If you enter ‘100’, there is no reduction, all placings being taken 
into account equally. If you enter ‘0’, only the most recent placing is 
used in the predictions. 

When you have keyed in the ‘Discount’ percentage, the computer 
begins its calculations. It makes allowances for the number of 
placings for each runner, so that runners with different numbers of 
placings on your records are all fairly compared. 

The display of predictions lists all the runners you have named, in 
the order in which you named them (not in predicted finishing 
order). Beside each name is a score. Assuming that the basis of the 
calculation is correct, and that past performance is a guide to future 
results, the higher the score, the more likely that runner is to win the 
race. 

(4) Finish: It is important to use this option every time you have 
entered new data. If you have not entered new data you can simply 
press RUN/STOP, or switch off the power, but otherwise select 
option 4. Put the tape in the Datassette, rewound back as far as the 
beginning of the magnetic portion. Key Y when asked‘RUNNER’S 
TAPE READY?’. The computer will then record all your data on to 
the tape, including not only that which was previously on the tape, 
but that which you have entered in the current session. 

If you are interested in several kinds of racing, you may, if you 
wish, keep all your data on one tape. The fact that it is mixed will not 
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matter. But if you have lots of data, it is better to keep a separate tape 
for each kind of event. This will take less time for saving and loading 
and allow you to store more data for each kind of event. 


Keying in 


Control characters used are: 

CLEAR: lines 30, 190, 300, 500, 810, 860, 1040, 1200, 3000 
CTRL/1: lines 30,500, 3000 

CRSR DOWN: lines 30, 190, 200 (3), 210 230 (2 each), 240 
(4), 320, (2,2), 350 (2), 360 (3), 410, 500, 510, 550 (2), 810, 
830, 860, 880 (2), 930 (3), 1040 (2,2), 1090 (2), 1200, 1320 (2), 
3000 

CTRL/4: lines 250, 550, 1090 


Program design 

20 initialising. 

30-180 input loading data from tape. 

190 280 the Menu. 

300 440 entering Results routines. 

500 580 viewing Results routine. 

800 1140 forecasting routines. 

1200 1330 saving data to tape. 

2000 2010 subroutine for detecting key-press. 

3000 3070 subroutine for accepting runner’s name. 


The program 


10 REM ** TIPSTER ** 

20 R*-CHR*C135 - DIM F Ji < 20 >, S ^ C 20> 

30 PRINT” RUNNERS TAPE RERDV? <V/N>" 

4-0 OOSUB 2000 
30 IF R*«-"N” THEN 190 
60 OPEN 1,10^"RUNNERS" 

70 INPUT#1jN : IF N—0 THEN CLOSE 1•OOTO 1 
90 

80 DIM N*<N+20)<NR(N+20LT<N+20) 

30 FOR jr««l TO N 
100 INPUT#1^ N# <J> 

110 INPUT#1 j NR<J) 

120 IF NR<J»MR THEN MR-NR<J> 

130 NEXT 

140 DIM RJi<N+20/MR+S> 
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130 FOR J-l TO N 
160 FOR K-l TO MR 
1 70 1 NPUT# 1 , RX C JT / K > 

100 NEXT i NEXT t CLOSE 1 

190 PR I NT " rj" i TRB <12)" W7? T I RSTER ?? " 
200 PR I NTTRB <12) H ???????????????*l*Dn" 

210 PRINTTflB<10)"1) ENTER RESULTS*®!" 

220 PRINTTHBC 10) " 2 > VIEW RESULTS*®!" 

230 PRINTTHB<10)"3) FORECAST RE8ULT8M»" 

2-40 PRINTTRBC 10) "4) F I NI SHMUMH" 

230 PRINTTRB <4) "kSELECT BV PRESSING NUMB 
ERED KEV" 

263 OOSUB 2000 

270 R-VRLCR*)>IF R<0 OR R>4 THEN 260 
200 ON H- GOTO 390/300<000/ 1200 
300 PRINT’TJ" = OOSUB 3000 

320 PR I NT "JCDU WHRT WRS “ ; N*<RN) ; "'S PLRCE 
? i 3,e>*nu" 

330 OOSUB 2000 

340 P-VAL<fl*)iIF P<0 OR P>3 THEN 340 

330 PR I NT "MU " ; P 

360 PR I NT" MHURLL OK? CV/'N)" 

370 OOSUB 2000 

300 IF R*0"V" THEN N—N-l : GOTO 300 

390 NR < RN > -NR < RN > 1 = RX C RN , NR < RN > > -P 

■400 IF NR<RN)>MR THEN MR—NR < RN) 

410 PRINT"WHORE? <V^N>“ 

420 OOSUB 2000 

430 IF R*—"V" THEN 300 

440 GOTO 190 

500 N*-""=INPUT"3«W NRME OF RUNNER"; N* 

510 PRINT" M" :FOR J-l TO N 

520 IF N*“"" OR N*-N*<J) THEN PRINTN*<J) 
";iFOR K—1 TO NR<J) : PRINTRX<J/K); 1 NE 

XT 

530 PRINT"" 

540 NEXT 

550 PR I NTTRB < 1 0 ) " MWWwCSPRCE BRR FOR MENU> 

■ I 

560 OOSUB 2000 

570 IF R*<>" " THEN 360 

500 GOTO 190 

000 K—0 

010 PRINT" no NO. ";K : OOSUB 3000 
020 FX<RN)-1:IF K-20 THEN 060 
030 PRINT"*! MORE? <V/N)" 

040 OOSUB 2000 

030 IF HJt— "V" THEN K—K-*-l : GOTO 010 
060 PRINT'TJM SCORES <0-9) FOR : " 

070 FOR K—1 TO 3 

000 PRINT"MU PLRCE"; K) "? " ; 

090 OOSUB 2000 

900 R—VRL<R*> I IF R<0 OR R>9 THEN 090 
910 SXCK>—R=PRINT R 
920 NEXT 

930 INPUT" MUM DISCOUNT C0-100)";D* 

940 D-VHLCD*):IF D-C0 OR D>100 THEN 930 
930 D»D/100:FOR J-l TO N 

960 IF FX<J)-0 THEN 1030 

970 F—1 : M—O : FOR K-NR<J) TO 1 STEP -1 

900 T(J)«T<J)+SX<RX<J/K))*F 

990 M-M+SXC1>*F 

1000 F-F*D 

1010 NEXT 

1020 T<J)-T<J)/M 

1030 NEXT 

1040 PR I NT " rXKJWJ FORECRST RRTIN03 : MM" 

1050 FOR J—1 TO N 

1060 IF FX<J)»0 THEN 1030 
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1070 PRINTTflB<5)N*<J) i TRBC205 INT < T <J)W10 
00 ) 

1080 NEXT 

1090 PRINTTflB <10)" K»W<SPfiCE BRR FOR MENU 

> M 

1100 GOSUB 2000 

1110 IF R*<>" " THEN 1100 

1120 FOR J-l TO 20 : FX<J>-0:NEXT 

1130 FOR JT-1 TO N : T< JT>»=0 : NEXT 

1140 GOTO 190 

1200 FRINT-nW RUNNER'S TRPE RERDV? (V/N 

> " 

1210 GOSUB 2000 

1220 IF R*0"V THEN 1210 

1230 OPEN 1j li1 j"RUNNERS" 

1240 PRINT*1,NJR* 

1250 FOR J-l TO N 

1260 PRINT#1,N*<J)R*NRU)R* 

1270 NEXT 
1200 FOR JT-1 TO N 
1290 FOR K«-l TO MR 
1300 PR I NT* 1 , RP<< J, FOR* 

1310 NEXT:NEXT:CLOSE 1 

1320 PRINT" WWTIPSTER FINISHED" 

1330 END 

2000 GET R*:IF R*—"" THEN 2000 
2010 RETURN 

3000 INPUT" RUNNER'S NRME";N* 

3010 IF N-0 THEN 3060 
3020 RN—0:FOR J—l TO N 
3030 IF N#<JT>-N* THEN RN-J 
3040 NEXT 

3050 IF RN>0 THEN 3070 
3060 N»N+1 :N» < N >—N# = RN—N 
3070 RETURN 


9 

The Shape Of The Future 



Have you ever wanted to fill the screen with bold chunky letters and 
striking shapes? This program makes it easy to design and produce 
visual displays of this kind. It has many applications, among the 
most obvious being the use of the computer as an advertising 
medium. The program displays a series of slogans and messages, and 
can repeat the series indefinitely. The displays have up to five 
colours. A different assortment of colours can be used in each 
separate screen display of a sequence. 

The design of all the letters and other symbols is entirely under 
your control. You can produce text in a wide range of styles or 
sequences of charts or diagrams for teaching purposes. If a 
member of your family deserves a really novel birthday greeting, 
here is a way to deliver it. 

Here is a way of making ‘commercials’ cheaply and effectively. 
Show them in a shop window, on a stand at an exhibition, at a 
presentation, or on the teaching bench. If you do not want to spare 
the computer for this task, connect a video recorder to the computer, 
and make a video-tape of the sequence. 
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How to use the program 

There are two complementary programs, Typemaker and Com¬ 
positor. Their names bring out the point that using this program is 
akin to writing and printing a small book. Before one can print, one 
must have type. Typemaker is used for designing the characters, 
shapes, or symbols (which could include your firm’s logo, for 
example). These are to be used later in the displays. It builds as many 
as 40 shapes or characters and stores the designs on a tape, ready for 
use with the Compositor program. You can have sets of symbols on 
different tapes for various applications. 


Using Typemaker 

You are first asked to key in which background colour and which 
foreground colour you require for the first character. These are the 
colours in which the character is to be displayed while you are 
designing. Later, in the Compositor program, characters can take 
any other pair of colours you choose. 

Key in your choice of colours as follows: 

(1) Press one of the keys T to ‘8’ to indicate the colours marked on 
the front of each of these keys. 

or 

(2) Press SHIFT with one of the keys‘F to‘8’to indicate one of these 
additional colours: 


1 = orange 

2 = brown 

3 = pink 

4 = dark grey 

5 = medium grey 

6 = light green 

7 = light blue 

8 = light grey 

As you indicate each colour, a small patch of that colour appears to 
the right of the query. Then a rectangular area at the top right corner 
of the screen clears to white. This is the area in which you design 
your character. The design is to be based on a 4 X 6 grid. You may 
prefer to get some squared paper and work out a few designs first, 
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but since it is easy to cancel mistakes in this program it is quite 
simple to work them out directly on the screen. 

The photograph at the beginning of this chapter shows examples 
of characters. With letters, it is generally better to leave the right- 
hand and lower rows blank. This is so that the letters are clearly 
separated from each other when displayed on the screen. If you want 
a larger or more complex pattern or symbol, design two or more 
symbols that can be combined into one by being displayed side by 
side (for example the arrows in the photograph). 

A light grey cross is displayed at the top left corner of the design 
area. This acts as a cursor, telling you where the colour will appear 
when you press the B or F keys. As you key in the selected colours, 
the cursor moves across the row. The design is built up row by row. 
When it is finished, you are asked ‘MORE?’. Key Y or N. If you are 
not satisfied with the design, key T. This cancels the design and lets 
you start again. 

As you work on each character, keep a written list of the character 
number and a brief note of what letter or other symbol it represents. 
You will need this list when you are using the Compositor program. If 
you are designing the numerals and alphabet, it is best to design the 
numerals 0-9 first, then seven other symbols, then the alphabet from 
A to W. If you need X,Y,Z design these among the ‘other symbols’. 
When you are using Compositor you can get each character (except 
X, Y, Z) by pressing the correspondingly marked key. 

If you have designed your character and press key Y, the screen 
clears and you start on the next one. If you key N, or if you have 
already reached the limit of 40 characters, the screen clears and the 
program goes on to the saving stage. Put a tape in the Datassette, 
rewound to the start of the magnetic part. Key in the name you wish 
to give to this set (or font) of characters. Then, if the tape is ready, 
key Y. Press ‘RECORD’ and ‘PLAY’ when asked to do so. After 
saving is complete, you are given the chance to repeat the saving for 
a back-up. Otherwise the program is finished. 


Using Compositor 

This produces screens (or pages) of characters, each of which is to be 
made up of 4 rows of 10 characters. It is possible to compose up to 50 
pages, and to have these displayed, in order. Each page can be 
displayed for as long as you wish before the next page replaces it. 
As soon as Compositor is RUN, you are asked to type in the name 
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of the font tape. This is the tape (or one of the tapes) you have 
created with Typemaker. Put the tape in the Datassette, rewound to 
the beginning, then key Y. The characters will then be loaded into 
the computer’s memory. 

Next you are shown the Menu: 

(1) Compose pages: This is the most important of the routines. First 
you are asked ‘STARTING PAGE’. Normally, you will key T, but 
if you return to this routine after you have already composed some 
pages, you can begin with any page already created. This allows you 
to replace that page with a new design. You can also begin with the 
next page after the end of your series, allowing you to extend it. 

The screen then clears and you are asked to key in the border 
colour, the background colour (i.e. screen colour) and three printing 
colours. These colours are keyed in in the same way as described 
earlier for the Typemaker program. The three printing colours are 
those in which the characters are to be displayed and may be 
different from those used in Typemaker. 

Next you are asked to key in the characters you require, row by 
row (0-3) and column by column (0-9). If you have the list of 
characters and their numbers, starting from 0 and finishing with any 
number up to 39, one key on the keyboard now corresponds to each 
character: 


Character number Corresponding key Character produced 

0 to 9 0 to 9 0 to 9 


10 

11 

12 

13 

14 

15 

16 

17-39 


< 

> 

? 

@ 

A to W 



any seven 
characters 
including X,Y 
and Z, if needed. 

A to W 


Press the key for the character you require. If you have followed the 
scheme recommended earlier, those characters to be produced on 
the screen will be those shown in the right-hand column of the table 
above. Then press one of the keys T, ‘2’ or ‘3’ to select the printing 
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colour (foreground colour) from one of the three you chose earlier. 
In a few seconds the character appears in position on the screen. You 
are asked ‘OK?’. If you key Y the program goes on to ask for the next 
character. If you key N, you can replace the character with a 
different one either a different character altogether, or the same 
character but in a different colour. 

When you do not want any character printed, press the space-bar. 
Proceed as above until you have filled all four lines. Then the 
computer asks ‘TIME’. Key in the length of time (in seconds) that 
this page is to be displayed. 

You can compose up to 50 pages altogether, but need do only one 
or two to begin with. When asked ‘NEXT PAGE?’, key Y if you want 
to compose more pages. Key N to return to the Menu. If you have 
composed a page and are not satisfied with it, key N to get back to 
the Menu. Then select this option again. Key the number of the 
faulty page when asked for starting page. You are then able to 
compose the page anew, completely replacing the unsatisfactory 
design. 

(2) Print page: this option allows you to review any or all of the pages 
you have composed. You are asked to key in the page number; the 
page is then displayed. Note that the characters are built up slowly, 
block by block. When they are displayed under option 4 they appear 
instantaneously. Note that the top line of the screen is visible in this 
option, so that you can read the commands, page numbers, etc., but 
the top line is not visible in option 4. Press the space-bar to go on to 
view another page. If you want to get back to the Menu, select the 
last page in the sequence; after this you will be returned to the Menu. 

If, instead of entering the number of a page, you key 0, you see all 
pages in turn from the beginning. There is no need to use the space¬ 
bar during this sequence. 

(3) Save Book: a sequence of pages can be thought of as a book. This 
option saves the whole sequence of pages on to tape - the ‘book’ 
tape. It also saves the character definitions, so a book-tape is 
completely self-contained. You are asked to type in a name for the 
tape, to make the tape ready as usual, and then to key Y. When the 
recording is complete, you have the option of taking a back-up copy. 
Finally you are returned to the Menu. 

(4) Show Book: This option displays the whole sequence of pages in 
order, and can be made to repeat indefinitely if required. This is for 
use in demonstrations, promotions, and as an advertising medium. 
While one page is being displayed, the next page in being composed 
in memory. Then the location of video memory is switched so that 


The Shape Of The Future 101 


the new page appears instantly on the screen. The effect is just like 
that of a slide show. 

The material of the show can come either from memory a 
sequence you have just keyed in or can be loaded from a previously 
recorded tape. When you select this option you are asked if you 
require: 

S-a single show (once through the sequence, then return to the 
Menu). 

R a repeat (the sequence is shown repeatedly). 

A an alternate show (first two pages shown alternately with 
rapid repeat). 

You are also asked if the sequence is already in memory, or on 
tape. If it is on tape you are asked the name of the tape. Put the 
tape in the Datassette, rewound to the beginning, and key Y. Press 
‘PLAY’ when requested. 

As soon as loading is finished (or immediately you key M, if the 
sequence is already in memory) the screen goes black. It takes about 
90 seconds to set up the area of memory used for composing the 
pages. Then the first page appears. The second page appears after 
about 80 seconds, plus the time interval you have selected for the 
display of page 1. In single show and repeat mode, the frames are 
renewed about once every 80 seconds plus the time interval. In 
alternate mode, pages are shown only for as long as the chosen time 
interval, after they have each been displayed once. To finish a sequence 
press the ‘up-arrow’ key (you may have to wait a few seconds). 


Keying in 

Take care with the figures in the POKEs. This program uses memory 
is a rather special way, and mistakes in keying might easily cause the 
computer to ‘latch up’. The only cure then may be to switch off and 
start again! Control characters used are: 

Typemaker 

CLEAR: lines 20, 50, 320 
CTRL/2: line 50 

CRSR DOWN: lines 60, 120, 280, 320 
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Compositor 

CLEAR: lines 40, 160, 300, 320, 800, 1000, 1200, 1370 

CTRL/2: lines 40, 160, 210 

CRSR DOWN: lines 160-200 (2 each), 210 (4), 1000, 1010(2), 
1140 (2), 1200, 1230 (2), 1260 

CTRL/4: line 210 

HOME: lines 410, 460, 510, 560, 600, 630, 830, 860, 2500 

These characters appear differently if you list the program after 
you have run it, and are in different colours. This is because the 
program uses Extended Background Colour Mode. If this troubles 
you, press RUN/STOP and RESTORE to recover the normal mode 
of display. 


Program designs 

Typemaker 

20-40 initialising. 

50-110 inputting colours. 

120-190 displaying key instructions, clearing area for making 
character. 

200-270 designing the character. 

280-310 next character? 

320-470 saving font tape. 

1000-1030 subroutine for getting key press and converting to 
colour codes. 

Compositor 

20-30 initialising. 

40-140 loading font tape. 

150-240 Menu and selection of options. 

300-660 composing pages. 

800-890 displaying selected pages. 

1000-1170 saving book to tape. 

1200-1550 showing the book (including loading from tape, if 
required). 

2000-2030 subroutine for getting key-presses and converting to 
colour codes. 

2500-2510 subroutine for clearing top line of screen, before 
message is displayed there. 
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3000-3060 subroutine for displaying a character. 

3500-3570 subroutine for building up a whole page in the screen 
memory or in areas of memory prior to display. 

3600 3620 subroutine for timing displays.. 

4000 4020 subroutine for detecting screen colour and changing 
PRINTing colour so that it is visible. 

5000-5030 subroutine for changing the colours of the screen, 
border and characters. 


Points of interest 


This program is in Extended Background Colour Mode. The 
characters are displayed by PRINTing ‘spaces’, in one of the three 
background colours (called printing colours in the program). 
Having no character on it, the ‘space’ shows background colour 
only, so putting a block of colour on the screen. 

In option 4, two areas of high memory are set aside as screen 
memories. Alternate pages are built up in these areas, and then 
displayed by switching the video chip to take its data from these 
areas. This allows the new displays to appear instantly. The data lor 
characters and the composition of pages is also stored in high 
memory, as a series of bytes. 


The program (Typemaker) 


10 REM ** TVPE MAKER ** 

20 PRIHT"n n 

30 DIM C?i < 33 ^ 5 > RS=CHR* C 1 3 > 

40 G=* 1 060 : H*35332 = J=0 

50 RRINT"ESCHAR. NO."jJ 

60 PR I NT " MBACKGROUHD COLOUR'?" 

70 OOSUE 1000 

©0 CB=C:POKE H+63j CE : POKE 0+63^160 
30 PR I HT " FOREGROUND COLOUR'?" 

100 GOSUB 1000 

110 CF=C : POKE H+103XF:POKE G+103,160 
120 PR I NT ”XKEV " E " FOR BACKGROUND" 

130 PRINTTRBC4)"'F" FOR FOREGROUND” 
140 PRINTTAB(4>""t' TO CANCEL" 

150 FOR K=0 TO 5 

160 FOR L=0 TO 3 

17*0 POKE H+40*K+L, 15 

1©0 POKE G+40#K+L,160 

130 NEXT:NEXT 

200 FOR K=0 TO 5 = L=0 

210 POKE G+40HfK+L,86 

220 GET A*: IF Rr*<>"B" AND R*E<>"F” AND 
<>"T" THEN 220 

230 POKE G+40#K+L^160 : IF R*="E" 

E H+40#K+L.CB 


THEN POK 
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240 IF H*="F" THEN POKE H+40KIK+L, CF : CJiC J 
, K > =C?i <JjK) -t-2 ?< 3—L_ > 

250 IP A S: = " ?" THEN FOR K = 0 TO 5-C54<J,K> = 
0:NEXT:GOTO 50 

260 L=L-t-1 : IF L<4 THEN 210 
270 NEXT 

280 PRINT")010RE? <V7N>” 

290 GET R* : IF A*<>"V” RHD R$0' , H"RND R*< 

>"T" THEM 290 

300 IF R*="r THEN 250 

310 IF A:*="V" THEN J = J-t-l : IF JT<40 THEN 50 

320 INPUT" riBHRME OF TAPE" i T$ 

330 PRINT'‘TAPE READY?" 

340 GET a*:IF A*0"V" THEN 340 
350 OPEN 1,1,1, T* 

360 CMD1 

37-0 PRINT#U J;R* 

380 FOR N = 0 TO 3 
390 FOR K=»0 TO 5 
400 PRINT#UOi<N>K)R* 

410 NEXT:NEXT 
420 CLOSE 1 

430 PRINT"BACKUP? <VXN>" 

440 GET AS: IF A*= " ” THEN 440 

45© IF AS="V" THEN 320 

460 PRINT"TVPE MAKER FINISHED" 

470 END 

1000 GET A*:IF A*="" THEN 1000 

1010 fl”ASC<AS)=IF A>32 AND A<41 THEN C=A 

-25:RETURN 

1020 IF A>40 AND R<38 THEN C=A—49:RETURN 
1030 GOTO 1000 


The program (Compositor) 


10 REM ** COMPOSITOR ** 

20 POKE 52,56=POKE 56,56=POKE 53265,PEEK 
< 53265 > OR64 :POKE 251,0 

30 CB”16384 : PB»16538 = 0=1064 = Sl-14376 : 82= 
15400:ES=8S 

40 INPUT" nan AME OF FONT TAPE” i T * - IF T3*=" 
" THEN 150 

50 PRINT"TRPE READY? <Y/N)" 

60 GET A*:IF A*<>"V" THEN 60 

?0 OPEN 1,1,0,TS 

80 INPUT#1,J 

90 FOR N-0 TO 3 

100 FOR K-0 TO 5 

110 INPUT#1,X 

120 POKE CB+K+6*N,X 

130 NEXT:NEXT 

140 CLOSE 1 

150 FS-0:POKE 53280,14:POKE 53281,6 
160 PRINT-naCWDO OPTIONS:" 

170 PRINTTABC10>" HDQl > COMPOSE PAGES" 

180 PRINTTRB<10>"»BE> PRINT PAGE" 

190 PR INTTAB C 1 0 > " 3*003 > SAVE BOOK" 

200 PRINTTAB< 10>" 3SIW4 > SHOW BOOK" 

210 PRINTTAB<2>" fcJSWWWK SELECT BV PRESSIN 
G NUMBERED KEV > 5*" 

220 GET A*:IF A*—"" THEN 220 

230 A=VAL<A*>:IF A<1 OR A>4 THEN 220 

240 ON A GOTO 300,800,1000,1200 
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300 OOSUB 2500: I NPUT " 23STRRT I NO PRGE Cl—5 

0> ; r* 

310 : IF P<1 OR P>PEEK C25 1 > 1 TH 

EN 300 

320 PR I NT " rJPRGE NO. "»P; : POKE 251 ^P 
330 PRINT": BORDER COLOUR?" 

3-40 GOSUB 2000 : POKE 53280 , C : POKE PB+ES#P 
+60, C 

350 GOSUB 2500 

360 GOSUB 4000 = PRINT" SSBRCKGROUND COLOUR? 
•• 

3?0 GOSUB 2000 : POKE 53281 * C : POKE PB+ES*P 
+81,C 

380 GOSUB 4000 
330 FOR PC-1 TO 3 
400 GOSUB 2500 

410 PRINT" SPRINTING COLOUR NO.”; PC;”?" 
420 GOSUB 2000 : POKE 5328 1 +PC , C '• POKE PB+E 
S#P+81+PC,C 
430 NEXT 

440 FOR SR—0 TO 3 
450 FOR SC=0 TO 3 

460 GOSUB 2500 = PRINT" SSROW” ; SR; ": COL. "; SC 
; " = CHARACTER?" 

4?0 GET a*:IF R*-"" THEN 4?0 

480 CN=ASC<A*5:IF CN-32 THEN POKE PB+ES* 

P+2*<SR*10+SC>, 33 ■ SS—1 =C-0 •GOTO 550 

430 IF CNC48 OR CN>8? THEN 450 

500 CN—CN — 48 : POKE PB+ES#P+2*<SRK!l0+SC) , C 

N 

510 GOSUB 2500-PRINT" 3COLOUR? <1-3?" 

520 GET A*:IF R*-"" THEN 520 

530 C»VRL<R*> : IF C<1 OR 03 THEN 5 10 

540 POKE PB+ES#P+2#C SR*10+SC? + l,C 

550 IF CN-32 RND DD—0 THEN 530 

560 GOSUB 3000 : GOSUB 2500 : PR I NT " SSOK? CVX 

N > ? " 

5?0 GET R*TF R*<>"V" RND R*<>”N” THEN 5 

?0 

580 DD—0:IF R*="N" THEN DD—l^GOTO 460 
530 NEXT = NEXT 

600 GOSUB 2500: INPUT"MTIME <5+?";TU*: 

610 TU—VRL C TUi> = IFTUC5 THEN 600 
620 POKE PB+ESitiP+85, TU 

630 GOSUB 2500 ; PRINT"SHEXT PRGE? <V/N)" 
640 GET fl*:IF R*0"V" RND R#<>"N" THEN 6 

40 

650 IF R3*e«=> "V” THEN P=P + 1 :GOTO 320 
660 GOTO 150 

800 GOSUB 4000:INPUT"CWHICH PRGE <0-50?" 
; R* 

810 P=VRL<A*?•IF P<0 OR P>PEEK<251? THEN 

800 

820 FR—0 IF P-0 THEN P-1:FR-1 

830 GOSUB 2500 : GOSUB 4000 : PR I NT » 3s*=RGE NO 
. " ; P 

840 GOSUB 5000 = GOSUB 3500 = GOSUB 2500 = GOS 
UB 3600 

850 GOSUB 4000:IF FR-1 THEN 880 
860 PRINT"3SPRCE BRR TO CONTINUE" 

870 GET R* IF R*<>" " THEN 87’0 

880 IF PCPEEK< 251 ? THEN P=P+1 :PRINT"d" : G 

OTO 830 

830 GOTO 150 

1000 INPUT" mWRME OF BOOK TRPE";T* 

1010 PRINT" WWJTRPE RERDV? <V/N?" 

1020 GETR*:IF R^O"V" THEN 1020 
1030 OPEN 1,1,1,T* 

1040 CMD1 
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1050 PRXHTttljJ;R* 

1060 PRINT#l,PEEK<a51)R» 

1070 FOR N**0 TO < J-i-1 >*6-1 
1000 PRINT#1,PEEK<CE+N>R* 

1000 NEXT 

1100 FOR N=»0 TO P#ES-1 
1110 PRINT#1 j PEEK<PB+N1R* 

1120 NEXT 
1130 CLOSE 1 

1 1 40 RR I NT " MMBRCK—UP? < V/N > " 

1150 GET R* : IF R*eO"V" RND RifcO" N" THEN 

1150 

1160 IF R*»"V" THEN 1010 
1170 GOTO 150 

1200 FS=1 : FR=0 : PRINT" 3193 INGLE/ REPEAT, R 
LTERNRTE <S/R/R) 2" 

1210 GET R*:IF R*<>"S" RND R*<>"R" RND R 

*<>”R" THEN 1210 

1220 FR=0:IF R*="R". THEN FR=1 

1230 IF R*=> M R M THEN FR=2 

1240 PRINT" WWBOOK IN MEMORV NOW- OR ON T 
RPE? <M/T)" 

1250 GET Rf=IF R*<>"M" RND R^<>"T" THEN 

1250 

1260 IF THEN 1370 

1270 INPUT” WURME OF TRPE";T*:PRINT"TRPE 
RERDV? < V/N> 

1280 GET R*:IF R*<>”V" THEN 1280 

1230 OPEN 1-1,0-T$TNPUT#1..JTNPUT#1-P:P 

OKE 251-P 

1300 FOR N~>0 TO CJ+1) *6— 1 
1310 INPUT#1 j X : POKE CB+N-X 
1320 NEXT 

1330 FOR N=0 TO P*ES-1 

1340 INPUT#1., X:POKE PB+N,X 
1350 NEXT 
1360 CLOSE 1 

137-0 PR I NT" 73" : POKE 33280-0 POKE 53201.. 0 
13S0 POKE 33263- PEEK < 53265 > RHD247 :POKE 5 
3265- < PEEK < 53265 >RND248> 

1330 POKE 53282-0 

1400 FOR K=0 TO 959 POKE S2+K-32 : NEXT 

1410 P=»0 = LP~PEEK<251 > : POKE 53272- <PEEK<5 

327-2 > RND 15 5 OR240 POKE 64S .. 60 

1420 P—P+l:IF P>LP THEN 1530 

1430 IF FR=»0 THEN G-Sl =OOSUB 3500 

1440 GOSUB 5000 

1450 POKE 53272-<PEEK<53272>RND15>OR224 

POKE648-56 : GOSUB 3600 

1460 P=P-*-l : IF P>LP THEN 1530 

1470 IF Ffl=0 THEN G=S2 : GOSUB 3500 

1430 GOSUB 5000 

1490 POKE 53272-<PEEK<53272>RND15>OR240: 

POKE 64S- 60 : GOSUB 3600 

1500 GET R*:IF R*="T" THEN 1540 

1310 IF FR=2 THEN FR»LP=0 

1520 GOTO 1420 

1530 IF FR*=1 THEN 1400 

1540 POKE 53265.. PE£K< 53265 >OR3 = POKE 5327 

2 ^ C PEEK C 53272 > RND 15? OR 1 6 = POKE 64© .- 4 


1550 POKE 53265-CPEEKC 
1064:FS=0 GOTO 150 


53265 > RND248 


3 


: G~ 


2000 GET R*:IF R*—"" THEN 2000 

2010 R—RSC< Ri> : IF R>32 RND R<41 THEN C=R 

-o*; ■ DCTTI 11—> U I 


2020 

2030 

2500 

EXT 


IF R>48 RND fl<58 THEN C=A—49 ; RETURN 
GOTO 2000 

PR I NT " 5S” i : FOR M=> 1 TO 39 : PRINT" " :N 


2510 PRINT" " 


: RETURN 
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3000 BL=32+64#C : PP=>G+SR*240+SC*4 : CC=CB+6 

HcCM 

3010 FOR K=0 TO 5 
3020 FOR 1_=0 TO 3 

3030 POKE PP+40!kK+L J 32 = IF SS-1 AND CN=99 
THEN SS=0:GOTO 3030 

3040 DG=2t<3-L_>=IF <REEKCCC+K>RNDDG>=DG 
THEN POKE PP+40*K+L,BL 
3050 NEXT:NEXT 
3060 RETURN 

3500 PC=PB+ES*P=FOR SR=0 TO 3 
3510 FOR SC=>0 TO 3 

3520 PE«PC+2#CSR*10+SC)=CN=PEEKCPE> 

3530 IF CN«99 AND FS=1 THEN 33=1=0=0 GOT 

O 3360 

3540 IF CN=99 THEN 3570 

3550 C a PEEK(PE+l> 

3560 GOSUB 3000 

3570 NEXT = NEXT = RETURN 

3600 TI*="000000" \ TIJ=PEEK < PB+E3*P+85 > 
3610 IF TI<60*TU THEN 3610 
3620 RETURN 

4000 IF C PEEK < 532©1 5 AND1 > =0 THEN PRINTCH 

R*C5> 

4010 IF < PEEK <53281 >RND1 > = 1 THEN PRINTCH 

R*=< 144) 

4020 RETURN 

5000 FOR M=«0 TO 4 

5010 POKE 53230+M,PEEK < PB+ES*P+80+H) 

5020 NEXT 
5030 RETURN 
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Stock Take 



Here is a program that can be used in a myriad of applications. In the 
factory, workshop or farm, use it for keeping an inventory of 
materials, parts or equipment. It will prepare a list of all items for 
which stocks are below the minimum. Preparing a requisition is just 
a matter of noting the details from the screen or printout, since the 
program also holds details of re-ordering quantities, suppliers and 
prices. If your stock is of the perishable kind, which might be 
anything from a batch of typhoid serum in a dispensary to a packet 
of smoked salmon in the home deep-freezer, the program can 
identify old stock by displaying a list of all items entered earlier than 
a selected date. 

Stock Take is a tape-based program. This means that in any 
organization it can be used in a variety of departments, each having 
its own data tape or tapes. There can be tapes for workshop tools, 
spare parts, office stationery, and canteen supplies. In the home each 
member of the family may have one or more tapes. It is very helpful 
to keep an inventory of furniture and furnishings for insurance 
purposes. The program can hold details of dates of purchase and 
cost of all such items, making it very easy to be sure that your 
insurance cover is adequate year by year. 
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Although the program has many features built in, and is ready to 
use, it is designed so that it can be tailored to your requirements, as 
explained in the Variations section of this chapter. 


How to use the program 

Each record on the stock list consists of eight items of information: 

(1) Code: a word up to four letters long, or a group of up to four 
letters and numerals. The purpose of this is to identify certain 
categories of stock quickly. For example, the stock list of electronic 
components shown in the photograph at the head of this chapter 
shows RES as a code. All kinds of resistors on the list have RES as 
their code. If you want to examine the list to look at your stocks of 
resistors, this code group is all you need key in, as will be explained 
later. 

(2) Description: words or codes to identify the item exactly. Up to 
ten characters are allowed here. This number has been restricted in 
order to fit a complete record on one line of the screen. However, it is 
usually easy to shorten words or use part numbers so as to specify 
the nature of the item exactly within the space allowed. The 
photograph shows some examples. 

(3) Date: This can be the date of purchase, the date on which the 
stock quantity was last amended, or any other date that suits your 
system of stock taking. You can enter the date in any format you 
choose, provided that there are no more than six characters. Thus 
the 3rd September 1984 could be keyed in as ‘030984’, ‘30984’, 
‘090384’, ‘03SE84’, ‘3 SEPT’ or‘3/9’. The only point to remember is 
that the ’Old List’ routine (see later) works only with dates entered 
according to the first format above (DDMMYY). 

(4) Quantity: This is the number of items currently held in stock. The 
program accepts any number (including decimal fractions, up to 
9999). But it is best not to use numbers with more than two places of 
decimals, for this upsets the arrangement of the display. The same 
points apply to numbers entered in items 5 and 6 below. 

(5) Minimum quantity: This is the minimum stock quantity. When 
the stock quantity has fallen to this minimum or below it, the item 
concerned needs to be re-ordered. The ‘Order list’ option (see later) 
operates on this basis. 

(6) Re-order quantity: This is the quantity of each item which should 
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be ordered when the stock quantity falls to or below the minimum 
stock quantity. 

(7) and (8) Fields 1 and 2: These give you two spare columns in the 
stock list in which you can record any information you wish. Each 
field holds up to four characters. In the photograph, Field 1 holds 
code letters which indicate the supplier of the items concerned. Field 
2 gives the price of each item, in pence. 

Before you use the program, you need to prepare a tape in which 
the data is to be recorded. If you are using the program for the first 
time, or want to begin a new stock list, use the Start List program. 
All this does is to put an ‘empty’ recording on the tape, ready for use 
by the Stock Take program. RUN the Start List program. When it 
asks you ‘NAME OF LIST?’, type in the name you have decided to 
give to your stock list. It might be ‘COMPONENTS’, 
‘STATIONERY’, ‘SPARES’, ‘CANNED GOODS’, or ‘TRAVEL 
DEPARTMENT’. Write the chosen name on the label of the 
cassette, then put this data cassette in the Datassette. Make sure the 
cassette is rewound back as far as the beginning of the magnetic part, 
but not back as far as the non-magnetic leader. When the computer 
asks ‘TAPE READY?’, key Y, and press the ‘RECORD’ and 
‘PLAY’ buttons on the recorder. In a few seconds, the tape will be 
ready for use with Stock Take. 

Now LOAD the main program. When you RUN the program, 
you are first asked to key in the name of the tape. This is the name 
which you gave it using the Start List program. Make sure the tape is 
rewound, then key Y when asked ‘TAPE READY?’. If it is a new list 
the tape takes only a few seconds to load, but it may take several 
minutes if you have used it before and stored a lot of information on 
it. 

When loading is complete, the screen clears and the Menu is 
displayed. This allows you the choice of any of six options: 

(1) New entry: Use this to take a new commodity on to the list. First 
press key T to select the option. You are then asked to key in the 
entries for the eight items of data required. The contents of each item 
have been explained above. Press RETURN after entering each 
item. You do not have to make an entry for every item. If there is 
nothing to enter, just press RETURN. When entry is complete, the 
screen clears and then displays everything you have just entered, in 
the form in which it will be taken on to the list. This gives you a 
chance to look for typing errors, and to note if you have typed in 
more than the allowed number of characters, and so lost the end of 
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an entry. If all is well key Y and you will be returned to the Menu. 
Otherwise type N to cancel the entry and re-enter the details. 

(2) Display stock list: This shows you the whole list from beginning 
to end, in the order in which the records were entered. Alternate 
columns of information are displayed in white and in blue-green, so 
as to make them easy to distinguish when packed full of 
information. If you have more than ten records, they are displayed 
ten at a time. Press the space-bar when you want to view the next ten. 
You are returned to the Menu when the whole list has been 
displayed. As each batch of ten entries is displayed, you have the 
option of having them printed out on a printer attached to the 
computer. The program is written for the VIC-1515 printer, but is 
readily adaptable for other printers. Instead of pressing the space¬ 
bar, press P. After printing a batch of ten you are able to press the 
space-bar to view (and, if required, print) the next ten. 

(3) Display/Amend entry: This option finds any single entry or 
group of similar entries, without having to look through the whole 
list. An entry may be defined by specifying its code or its description, 
or both code and description. You are asked to type in both of these 
but need type in only one. Press RETURN after making each entry, 
or no entry. If you specify only the code, you will be shown all 
records which bear this code. For example, the code RES would 
result in all records relating to resistors being displayed in order, one 
record at a time. If you cannot remember the code, but can 
remember the description exactly, omit the code and type the 
description. The single stock record conforming to that description 
will then be found and displayed. 

The records are displayed one at a time to give you the 
opportunity of amending them. If you do not want to amend the 
record, press the space-bar. If there are further records conforming 
to your original specification, the next one listed will be displayed. If 
there are no more, you are returned to the Menu. 

If you decide to amend a record, you can either amend the figure 
in the ‘Quantity’ column only (key Q) or as many or all of the other 
details that need to be changed (key A). When you amend only the 
stock quantity, the screen clears, and you are reminded what the 
present quantity is. You are then asked to key in the new quantity. 
When you press RETURN you are then shown the next record 
conforming to your specification. 

If you elect to amend a record, by keying A instead of the space¬ 
bar, you have then to follow the same procedure as under option 1. 
All details have to be typed in again, with corrections or 
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amendments where appropriate. The original version of the record 
remains on the screen, so that it is easy to copy in the details which 
are not to be changed. This option can, of course, be used to 
completely replace an unwanted record with an entirely new one. 

As soon as the new details have been typed in, you are shown what 
the computer is about to register on the stock list and asked to 
confirm or re-enter it, as in option 1. You are then returned to view 
the next record, if any, conforming to your specification. 

(4) Order list: Selecting this option, makes the computer scan the 
stock list, displaying all records in which the quantity in stock is 
equal to or less than the minimum stock quantity. If there are many 
such records, they are displayed in batches, so as not to overflow the 
screen. Press the space-bar to view the next batch, if any, or key P to 
have the batch printed out. 

(5) Old list: Before the computer searches the list, you are asked to 
key in the date to be used in the search. This could be the date of 
purchase of the stock or, for example, the‘Best before’ date of stored 
foodstuffs. The date is specified by typing in the month (1 12) and 
the year (0-99). The computer then looks through the stock list and 
displays all records which have a date earlier or equal to the specified 
date. The variations section explains how to modify the program to 
work with day-and-month dates instead of month-and-year dates. 
This would be more suitable for commodities with a relatively short 
shelf-life. 

As with option 4, the list is presented in batches and you can elect 
to have each batch printed out. 

(6) Finish: this option must be used every time you have finished a 
session with the program. Never switch off the computer or press 
RUN/STOP without using this option first (N.B. if you do press 
RUN/STOP by accident, it is usually possible to recover without 
loss of data by typing ‘GOTO 150’ and then pressing RETURN). 
Under option 6 you are first asked ‘TAPE READY?’. Put the data 
tape in the Datassette, rewound to the beginning of the magnetic 
section. Press Y, then press ‘PLAY’ and ‘RECORD’. All 
information, including any that was previously on the tape, and all 
that you have entered during the current session, is then transferred 
to the tape. 

When recording is finished, the message‘BACK-UP?’ appears. To 
take a back-up copy, place a second tape in the Datassette and then 
key Y. You then repeat the routine just described. After you have 
taken as many back-up copies as you require, press N. This ends the 
program. 
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Keying in 

If you are not intending to use a printer with this program, there is 
no need to type in lines 4500-4540 and lines 6000 6040. 

Control characters used are: 

Start List 
CLEAR: line 20 
CRSR DOWN: line 20 

Stock Take 

CLEAR: lines 30, 160, 300, 400, 800, 830, 930, 1000, 1100, 
1300, 1800, 3110, 3220 

CRSR DOWN: lines 30, 40, 160, 180 (2), 190-230 (1 each), 
240 (3), 300 (1, 1), 400, 800, 920 (2), 970 (3), 1000, 1300, 
1800, 1940, 1970, 3110, 3120 (2), 3200 (3), 3500 
CTRL/2: lines 30, 160, 300, 400, 800, 1100, 1800, 3120-3190 
(1 each), 3510 (1, 1), 4000, 4010, 4020 (1, 1) 

CTRL/4: lines 240, 490, 870, 970, 1220, 3120 3190 (1 each), 
3500 (1, 1, 1), 3510, 4000(1, 1), 4010, 4020, 5000 

Program design 

20 initialising arrays. 

30-150 loading data from tape. 

160-270 menu and routing to options. 

300-330 new entry routine. 

400-540 display stock list. 

800-1030 display/amend entry. 

1100 1270 order list routine. 

1300-1340 old stock list routine. 

1800-1980 finishing routine. 

2000-2010 subroutine for getting key-press. 

3000-3230 subroutine for inputting data and confirming it. 
3500-3520 subroutine to display column headings. 

4000-4030 subroutine to display a line showing record details. 
4500-4540 subroutine to print column headings. 

5000-5030 ‘space-bar to continue’ subroutine. 

6000-6050 subroutine for printing a line showing record details. 
6500-6540 subroutine for printing batch of records. 
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The programs 


10 

20 

30 

40 

50 

60 

70 

00 


REM mm START list mm 
INRUT "raw NAME OF LIST" jT* 
PRINT"TAPE READS'? <YXN>" 
OET R *;IR R# :>"V" THEN 40 
OPEN 

PRINTW1,1E—10 

CLOSE 1 

END 


10 REM ** STOCK TAKE **■ 

20 DIM Dt(100,4),DJi<100,2) :R* = CHR*U3) T 
*=CHR*<16) 

30 INPUT" raws* NAME OF TAPE";T* 

40 PRINT"M TAPE READV? C V/'N) " 

50 GOSUE 2000 
60 IF R*<>"Y" THEN 50 
70 OPEN 1,L0.TS 
30 I NPUT# 1 j. N 

100 IF N=1E-10 THEN N=0:GOTO 150 
110 FOR J=1 TO N:FOR K=0 TO 4 
120 INPUT#1 .. B* < JS K > : NEXT 
130 FOR K=0 TO 2 

1 40 I NPUT# 1 .. DK < - J .. K > : NEXT : NEXT 
150 CLOSE 1 

160 PRINT"n ,, ;TRBai)" aB»# STOCK TRKE ** 

M 

170 PRINTTABC 14) ”-" 

1S0 PRINTTABC7)"MBfll) NEW ENTRV" 

130 PRINTTABC 7) ” M2) DISPLAY STOCK LIST 1 ' 
200 PRINTTAB<7)"M3) DISPLAY/AMEND ENTRV 


210 PRINTTAB<7)"M4) ORDER LIST 
220 PRINTTAB<7)")SB) OL.D STOCK LIST 
230 PRINTTflBC7)"S6) FINISH 

240 PRINT ,, MSKk. <SELtCT BY PRESSING NUN 
BERED KEY>" 

250 GOSUB 2000 

260 A=VAL<A*)=IF R<1 OR R>6 THEN 250 
270 ON R GOTO 300,400,800,1100,1300,1800 
300 PRINT”rJ=tW NEW ENTRY : M" 

310 N = N-*-l : J = N 
320 GOSUB 3000 
330 GOTO 160 

400 PRINT'T3=CW "1T*J" STOCK LIST" 

410 GOSUB3500 
420 NS=1 
430 NF =10 

440 IF N<NF THEN NF=N 
450 FOR J=*NS TO NF 
460 GOSUB 4000 

470 IF LENCD$CJ,4))<4 THEN PRINT"" 

4S0 NEXT 

430 PRINT"#. < SPRCE BRR — CONTINUE P 
«= PRINT >" 

500 GOSUB 2000 : IF R*<>" " FIND RitO-R" TH 

EN 500 

510 IF “P" THEN GOSUB 6000:GOSUB 6500 

520 IF NF=N THEf-4 150 
530 NS=NF+1 NF=NS+18 
540 GOTO 440 

S00 PR I NT “ risCWD I SPLAY ENTRY" 

810 I NPUT " CODE " C& 

820 INPUT"DESCRIPTION"iD* 

830 PR I NT" 73" 1 : GOSUB 3500 
840 ND“0 : NS=1 : FOR J— 1 TO N 
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650 IF C*OD* (J;0) AND D^ODi* C J , 1 > THEN 
96© 

860 HD=ND+1 : PRINT"W" : GOSUB 4000 

870 PRINT"k. < SPRCE=CONTIHUE Q=QTV 

A»AMEND >m” 

880 GOSUB 2000 

880 IF A*<>" " PHD A2fc<>" A" AND fi*0"Q" T 

HEN 880 

800 IF R*=" " THEN 850 
810 IF A*="Q" THEN 1000 
820 PRINT"MM" = GOSUB 3000 
830 PR I NT " 73" i GOSUB 3500 
940 GOSUB 4000 

950 IF ND=10 THEN ND=9 : NS=NS+10:GOSUB 50 
00 

960 NEXT 

970 PRINTTRE^ie)" «MWk** END OF SERRCH mm 

It 

880 GOSUB 5000 
980 GOTO 160 

1000 PR I NT" n» QUANTITY IS : ” j DJi < • J .■ 0 > 

1010 IHPUT"RLTER TO"JD IF D>9999 THEN 10 
10 

1020 DK<J,0)=D 

1030 GOTO 950 

1100 PRINT-Taal” .= GOSUB 3500 
1110 NS=1=NF=10 
1120 IF N<NF THEN NF=N 
1130 NP=0 : FOR J=HS TO NF 

1140 IF R = 4 AND DX < J , 0 > >DX < _T , 1 > THEN 120 
0 

1150 IF AOS THEN 1120 

1160 VR=VAL<RIGHT*(D#<.J,2J,2?> = IFYR>YORV 
=VRRNDM<VAL CMIDi(D*<J * 2 > , 3.2 > >THEN1200 
1120 REM ** OTHER SEARCHES ** 

1180 REM ** OTHER SEARCHES ** 

1190 GOSUB 4000 : NP=NP + 1 : IF LEH(M U.. 4) X 
4 THEN PRINT"" 

1200 NEXT 

1210 IF NP=0 THEN 1250 

1220 PR I NT < SPACE BAR = CONTINUE P 

— PRINT >" 

1230 GOSUB 2000-IF A*<>" ” AND A*<>"P" T 

HEN 1230 

1240 IF Ai="P" THEN GOSUB 600© GOSUB 450 

0:PRINT#5:CLOSE 5 

1250 IF NF=N THEN 150 

1260 NS=NF+1 : NF=NS+10 

1220 GOTO 1120 

1300 INPUT"2Dfl WHICH MONTH C 1 - 1 2 > " M* 

1310 M=VAL<M*>:IF M<1 OR M>12 THEN PRINT 

"m" :GOTO 1300 

1320 INPUT" WHICH YEAR < 0-99 > " ; Yit 

1330 Y=VAL<Y*) - IF Y<0 OR V>99 THEN PRINT 

" Tl" : GOTO 1320 
1340 GOTO 1100 

1800 PRINT"naoa" ;TJt; " TAPE READY? <Y/NV 

1810 GOSUB 2000 

1820 IF A*0"Y" THEN 1810 

1830 OPEN 1,1<1,T* 

1840 CMD1 

1850 PRINT#LN.;R* 

I860 FOR J=1 TO N 
1820 FOR K*=0 TO 4 
1880 PRINT#LB*U,K)R* 

1890 NEXT 

1900 FOR K—0 TO 2 

19 10 PR I NT# 1 , (OR* 

1920 NEXT : NEXT 
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1330 CLOSE 1 

1940 PRINT"M BACK—UP? CV/N)“ 

1950 GOSUB 2000 

1960 IF R®=”V" THEN 1800 

1970 PRIHT"W STOCK TAKE FINISHED" 

19S0 END 

2000 GET A*:IF THEN 2000 

2010 RETURN 

3000 I NPUT " CODE " D® : D*< J , 0 > =LEFT$ < D® -■ 4 > 
3010 I NPUT " DESCR I F'T I ON ” i D® : Hi 'C J .. 1?=LEFT* 
<T>& - 10> 

3020 I NPUT " DOTE < DDMMVV > " i D® : D® C .J .. 2 > =LEF 
Tits C D®.. 6 > 

3030 INPUT"QUANTITV";D IF D>9999 THEN 30 
30 

3040 J}>. C J .■ 0 > = D 

3050 INPUT”MINIMUM STOCK"SD : IF DX>9999 T 
HEN 3040 

3069 1)=D 

3070 INPUT"RE—ORDER QUANTITY" j D:IFD>9999 
THEN 3050 

3030 Tfrl < J , 2 > =D 

3090 I NPUT "FI ELD 1 " D* : D* , 3 5 =LEFT* C , 
4> 

3100 I NPUT" FIELD 2 " D® = D® < J 4 =LEFT* < D® 

4 > 

311© PR I NT ■’ n® BATA TO BE ENTERED IS : * ' 

3 1 20 PR I NT ” hUSEeJCODE - " TAB U9>" at” D® < J .. 0 > 
3130 PR I NT " LDESCR I PT I ON " .• TAB < 1 9 " =*' B*fJ 

.. 1 > 

3 1 40 PR I NT " LDATE " ; TAB U3)" =4" .. D®< J -■ 2 > 

3150 PRIHT"kJQUANTITY" .. TABC 18V at” ; D2C J .■ 0 'j 
3160 PR I NT " fcj'l INI MUM STOCK " TAB < 1 8 > " ai 1 DK 
< -J • 1 > 

3 1 70 PR I NT " fcJ?:E — ORDER QUAKT I TV “ • TAB OSj’4 

" ; hh < j, 2 > 

3130 PRINT"kFIELD l"iTABa9V ^";B* J 3 ? 
3130 PR I NT " iU=-1 ELD 2 " TAB < 1 9 > " =«" D® ■; .J .■ 4 ;■ 
3200 PRIHTTAB(22)■’MMBORLL OK? CY/N) 1 
3210 GOSUB 2000 

3220 IF RrSO " V " THEN PR I NT ”73” : GOTO 3000 
3230 RETURN 

3500 PRIHT"*VCODE".: " ai DESCRIPT ” 1 " W. DATE 
; " zA qv ” . >■ »*. MN " 

3510 PRINT” at RE " " w. FI " > " =» F2 ” 

3520 RETURN 

4000 PRINT"k." ; D® <-J, 0> j TAB <4) ” al" ; D® < JU 1 :> i 
TAB <14)" hU’ i D* 

4010 PRINTTAB<20> " *" ; mil*<STR*<DXC J/ 0 > > 

2 >;TAB<24>"k";niB* C STR*CDXCJ, 1>>>2>J 
4020 PRINTTAB<28) " a*” 1 MID*CSTR*<DX( J, 2 > > ^ 
2 > ; TAB < 32 > " i D® < JU 3 > I TAB <36>" a";D*(J-4> 
4030 RETURN 

4500 PR I NT«*5 .. D* < J > 0 > P*CHR* < 48 > CHR® t 55 > D* 
1)P®CHR*C30)CHR*<48)DfCJ,2); 

4510 PRINT#3,P*CHR*<50)CHR#< 36)DXC J,0>P® 
CHR*<51)CHR*<56)DX< J J 1>J 

4520 PR I NT#*5 P»CHR* < 52 > CHR® <36) DX <J,2) P* 
CHR®C33>CHR*<57>B#U J 3 > ; 

4530 PR I NT#5 a P«CHR*<54>CHR*C37>D»CJ,4> 
4540 RETURN 

5000 PRINTTAB < 7 >"W<SPACE BAR TO CONTINUE 

5010 GOSUB 2000 
5020 IF R*<>» ■■ 

5030 RETURN 
6000 OPEN 3,4 
8010 CMD 5 


THEN 5010 
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€020 PR I NT4*55 , " CODE " P* " 07DESCR I PT I OH ■■ P* " 2 
0DPITE "P*" 2QQURNT ITV'P*" 38M IN. QTVP*" ; 
€030 PR I NT#5 , P* " 4QRE—ORDER ■' P* " 39F I ELD 1 
Pf69FIELD 2" 

€040 PRINTCHR*<13? 

€030 RETURN 
€500 FOR J-NS TO NF 
€510 OOSUB 4500 
€520 NEXT 

€530 PRINTW5:CLOSE 5 
€540 RETURN 


Variations 

One of the features of this program is that it is adaptable. The two 
spare items, Field 1 and Field 2 can be used to hold any kind of data. 
If you have decided on a definite use for these columns, you can 
change their headings by amending lines 3090, 3100, 3180,3190 and 
3510. 

The old list normally requires you to enter a month-and-year date. 
To change to a day-and-month date, make these changes to the 
program: 

Alter the message in line 1300 to ‘WHICH DAY (1-31)’ 

Alter line 1310 to: 

1310 M=VAL(M$):IF MCI OR M>31 THEN ... 

Alter the message in line 1320 to ‘WHICH MONTH? (1 12)’ 

Alter line 1330 to: 

1330 Y=VAL(Y$):IF Y<1 OR Y>12 THEN ... 

Change line 1 160 to: 

1 160YR=VAL(MID$(D$(J,2),3,2)):IF YR> Y OR YR=Y 
AND M<VAL(LEFT$(D$(J,2),2)) THEN 1200 

The program searches the stocklist looking for records having a 
certain feature. Examples are the date (Old list) and the relation 
between stock quantity and minimum stock quantity (Order list). 
Lines 1140 and 1150 identify such records, by skipping over any 
which do not conform to the required specification. Space has been 
left in the program at lines 1170 and 1180 for you to write your own 
search routines. These could be used in conjunction with 
information in Fields 1 and 2. You could make the computer look 
for all records which relate to the same supplier, or which list items 
falling within a given price range, for example. 
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Sales Trend 



Are things getting worse or better? Or are they, perhaps just about 
the same as ever they were? Is productivity improving? Are the 
rejection rates falling? Is circulation increasing? These and other 
questions of similar nature can be answered by this program. It 
detects trends in any given series of figures. You need at least 10 
figures in the series, but it is preferable to have at least 20, and you 
can have up to 100. The more figures you have the more reliably the 
program will be able to find out if they show a trend. 


How to use the program 

The program works equally well with measurements, numbers or 
grades. The weekly production, in tonnes, of a chemical plant is an 
example of measurement data. The numbers of ice-creams sold daily 
is an example of a number series. To assess the popularity of a new 
LP, market researchers might question a number of people (say 100) 
in a series of surveys, asking them to grade the LP on a scale ranging 
from 0 to 10. The total of the 100 gradings obtained from each 
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survey could be used as data for this program. Any trend in the 
popularity of the LP could then be detected. 

The program accepts negative values as well as positive ones. 
Also, there is no need for the entries to have been taken at regular 
intervals. A series of so-called ‘weekly’ figures might, in practice, 
have gaps when the factory closes over the holidays, for example. 
Maybe the data for one week was inexplicably lost. If data is missing 
from the series, simply pass to the next item; do not enter ‘ 0 ’ or try to 
estimate a value to replace the missing one. 

As soon as the program is run, you are asked to key in the data. 
When you have finished entering the data (at least 10 items), key 
‘ 9999 ’ informs the computer that all the data has been entered. 
The figure ‘9999’ is not incorporated into the calculations. The 
figures are redisplayed so that you can check them. Confirm that 
they are all correct by keying Y. The screen then shows the warning 
‘COMPUTING MAY TAKE A WHITE’. Normally, the calculation 
takes about ten seconds, though will take longer if you have nearly 
100 figures. 

Finally the computer displays the result. For example, you might 
see: 

“THERE IS A CHANCE BETWEEN 98% and 99% THAT 
THERE IS A TREND” 

This means that the likelihood of the figures indicating a real 
trend is very strong. Conversely, there is only a 1% to 2% chance of 
the rise or fall of the values along the series being due to chance 
factors. Most people would accept the fact that there is a slight 
chance (only 1 in 50 to 1 in 100) that there is not a trend, and 
therefore consider that a trend has been demonstrated. 

If the percentages quoted in the display are in the region of 50% to 
70%, there is quite a strong possibility of there not being a trend. 
With such figures, you should not accept that a trend is present. 

We have assumed that a trend must go up or down, but it is also 
possible that there can be a ‘no-change’ trend. If the figures ‘hover’ 
closely and regularly above and below a given value, instead of 
jumping about irregularly it is evident that there is a strong trend 
toward stability. A trend of this kind is detected by the program just 
as easily as a steady upward or downward trend. So, if the program 
tells you that the chances of a trend are a high, examine the series of 
figures to check if the trend is upward, downward, or level. It must 
be emphasised that the test is much more reliable when the number 
of figures in the series is more than 20. The more the better, except 
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that, in practice, a long series may have a number of‘upward’ and 
‘downward’ trends, which may cancel each other out. A series which 
shows a rising trend at the beginning, followed by a falling trend will 
probably not produce any significant result in this test. If you have a 
very long series, it may be worthwhile dividing it into several sub¬ 
series and test each sub-series separately. 


Keying in 

The program has several routines in common with Chapter 7, 
Compare It. This accounts for the discontinuity in the line 
numbering of Sales Trend. The lines concerned are: 210 370, 
660 780, 820-850, and 890 1020. If you have already typed in 
Compare It, load it, delete the lines not needed in Sales Trend, then 
type in the lines needed to complete the listing. 

Control characters used are: 

CLEAR: lines 40, 70, 120, 790, 860 

CRSR DOWN: lines 40, 90, 120 (2), 790, 800, 860, 890 (5) 

Unlisted: 

C=/8: line 40 (after the ‘Q’) 


Program design 

20-30 initialising. 

40-110 entering and verifying data. 

120 warning message. 

130 data to array S() for sorting. 

200 -370 sorting data. 

380-390 finding the median value. 

400-480 scoring data depending upon whether it is above or 
below the median. 

600-650 counting number of runs and numbers above and below 
median. 

660-690 calculating the statistics. 

700-800 and 820 870 assessing probabilities and displaying the 
results. 

890-910 inviting another analysis. 

1000-1020 statistical look-up table. 
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Points of interest 


Note for the more statistically-minded reader. This program uses the 
Wald-Wolfowitz runs test adapted for detecting trends. Data which 
equals the median is allocated to the ‘above-median’ or ‘below- 
median’ categories at random. The DATA statements contain the 
values of z associated with selected probability (one-tailed) levels. 


The program 


10 REM *.m SRLES TREND ** 

20 DIM D <C 1 00 ) ; S<101) / R< 191 ) 

30 POKE 532©lilt 

40 NT=1 TRIHT'TM KEV IN DRTR " 

50 PRINTHT;:INPUT" ";D<NT5 

60 IP NT < 100 RND D(NTK>9999 THEN NT=NT + 
1 = OOTO 50 

70 NT=NT-1:PRINT"ODRTR ENTERED IS : " 

©0 FOR 3=1 TO NT : PRINTDtJ)j =NEXT 
30 PRINT” " :PRINT"MRLL OK? <V/N)” 

100 GET R*:IF R*="" THEN 100 

110 IF R*<> M V THEN 40 

120 PR I NT " ; TAB < 7 V WISCOMPUT I NG MRV TRKE 

R WHILE" 

130 FOR 3=1 TO NT : S< J)=D< J) : NEXT 
200 Ml=l 

210 SS<l J l) = TSSa,2)=NT 

220 M2=SS<M1 , ■ M3=SS<M1.. 2> :M1=M1-1 

230 M4=M2 : M5=M3 : M6=S <C I NT C RND < 1 > * < M3—M2 > +- 

. 5 > -+-M2 ■> 

240 IF S<M4XMS THEN M4=M4+1 ; GOTO 240 

250 IF M6<S<M5> THEN M5=M5-1:GOTO 250 

260 IF M4>M5 THEN 2©0 

270 M7=S< M4> : S CM4}= S < MS > : S <M5 > =M7 : M9=Rt M 

4> : R<M4)=R<MS> = R < M5 > =M9 : M4=M4+1 : M5=M5-1 

280 IF M4<=M5 THEN 240 

290 IF M5-M2>=M3-M4 THEN 330 

300 IF M4>=M3 THEN 320 

310 Ml =M 1 +- 1 = SS <M1, 1 > = M4 : SS <C M 1 .. 2 > =M3 

320 M3=M5:GOTO 360 

330 IF M2>=MS THEN 350 

340 M 1 =M 1 + 1 : SS (Ml, 1 > =M2 : SS C M 1 .. 2 > =M5 
350 M2=M4 

360 IF M2<M3 THEN 230 

370 IF M1>0 THEN 22© 

380 IF NT/2=INT<NT/2? THEN MN=S<NTZ2>:IF 

S < NT/2+ 1 > OMN THEN 450 
390 MN=S<NT/2+.5) 

400 FOR 3=1 TO NT 

410 IF DUKMN THEN R<3>=0 

420 IF D < 3 > =MH THEN R < 3 > = I NT < RND C 1 > ■+■ . 5 'j 

430 IF D<J)>MH THEN R <C 3 'j = 1 

440 NEXT = GOTO 600 

450 FOR 3=1 TO NT 

460 IF D <C 3 > <=MN THEN R «C 3 > =0 

470 IF D<J)>MN THEN R<J>=1 

480 NEXT 

600 NIC 1 >=0 : u = 0 = R(NT+1 >=R<NT) + 1 
610 FOR 3=1 TO NT 

620 IF RCJ> = 1 THEN N C 1 > =N <C 1 > ■+■ 1 

630 IF R(3)ORC3+l) THEN U=U+1 


122 Software 64 


640 NEXT.; 

650 N<2>=NT-Ha> 

660 UU=2#N< 1 1 >-*-N<2> J> -+- 1 

670 S=SQR<2*N<1>*N<2>rtf<2rtfN<1} rtfN < 2 } ~-N <1 >— 

N<2>X<N<1 >-*-NC2> > -r2^<N< 1 >-i-N<2>-1 > > 

600 Z=<RBS<UU—U?-.5XS 
600 IF Z<0 THEN Z=.001 

200 IF N<l>*N<2Kie OR N<1><5 OR N<2X5 

THEN PRINT"W NOT ENOUGH DRTR" GOTO 390 
210 R=0 

220 R=R-*-l : RERD 2L_ 

230 IF ZL=Z THEN 250 

240 IF ZL>Z THEN 220 

250 IF R<10 THEN P=RX10 

260 IF R>0 RND R<19 THEN P=R—0 

220 IF R>13 THEN P=10+5*<R—10> 

200 IF ZL<Z THEN 030 

200 PRINT"ZM THERE IS R";100-P;"X CHRNC 
E THRT THERE" 

800 PRINT"WIS R TREND" 

020 GOTO 800 

030 IF R<11 THEN PL=<R-n/10 

0-£i0 IF R> 10 RND R<20 THEN PL=R-10 

850 IF R>10 THEN PL=10+5#<R-20) 

360 PRINT’TW THERE IS R CHRNCE BETWEEN”; 
1 00 —P ; "?i RNDJfl” 

820 PR I NT 100—PL_ , "5i THRT THERE IS R TREND 

• I 

000 PRINTTRBO) " ;KD5l«SIitDEK SPRCE BRR FOR RNO 

THER RNRLVSIS >" 

000 GET R* IF R*<>" " THEN 000 

010 RESTORE = CLR: GOTO.40 

1000 DRTR 3.085,2.88,2.25,2.65,2.525^2.5 
1,2.455,2.41,2.365 

1010 DRTR 2.322,2.052,1.081,1.251,1.645, 
1.555,1.426,1.405 

1020 DRTR 1.341,1.202,1.©32,.842,.625,.5 
24, . 385, . 253, . 126,0 
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Sprites Galore 



The sprite graphics of the Commodore 64 are an unusual and 
exciting feature, uncommon in computers in mis price range. There 
are eight sprites. The shape and colour of each is decided by the user. 
They can be turned on or off at will, so it is possible to have any 
combination of sprites (or none) on the screen at any one time. The 
sprites are easy to move around the screen, passing behind or in 
front of one another and behind or in front of the background in a 
way that is fascinating to those who are accustomed to ordinary 
graphics displays. They add tremendously to games, making the 
programming easier, yet enhancing the visual effects. They have 
applications in more serious programs too. The Sounds Incredible 
program of Chapter 6 is an example. 

One of the disadvantages of using sprites is that a lot of patience 
and tedious calculation is required during the design stage. After this 
the values obtained have to be converted into a series of POKE 
statements. Sprites Galore is a utility program to take the drudgery 
out of sprite-making. As you design each sprite on a large-scale grid, 
you see the sprite itself being built up on the screen. The program 
allows you to design the full number of sprites, (eight), that the 
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computer provides. After each sprite is designed, the values which 
you need to POKE to memory are displayed, together with the 
calculated addresses to which they are to be POKEd. All you have to 
do is to copy this information from the screen, ready for 
incorporation in your own program. 

When you have finished using Sprites Galore, you can NEW it. 
This gets rid of the program, but leaves the sprite definitions 
unchanged in memory. You can now LOAD or type in another 
program to make use of these sprites. 


How to use the program 

When you RUN the program, the screen clears to neutral greys. This 
is intended to allow you to design the sprites in any of the more 
colourful hues. The screen displays the message ‘SPRITE NO. 0’. 
Sprites are numbered from 0 to 7, so you are now about to design the 
first sprite. Note that there is an order of priority for the sprites. 
Sprite 0 has the highest priority and sprite 7 has the lowest. When 
sprites pass each other on the screen, the one with the higher 
priority always passes in front of the one with the lower priority. 
When using this program, design sprites in order of priority, if this is 
of importance in your program. 

The first question asked on the screen is ‘COLOUR?’. You are 
being asked to select a colour for the sprite. Selection of colour is 
provided to help you visualise the sprite in its intended colour. 
H owever, colour is not a permanent feature of a sprite, and it can be 
made to appear in any other colour when used later in the other 
programs. 

To select a colour, press one of keys T to ‘8’. This will give the 
colour which is marked on the front of the key. If you want one of 
the Commodore 64 special colours, press the SHIFT key together 
with one of the keys T to ‘3’ or ‘5’ to ‘7’. These will give you: 

1 orange 

2 brown 

3 pink 

5 medium grey 

6 light green 

7 light blue 

Keys ‘4’ and ‘8’ are not to be used with SHIFT, for this makes the 
sprite invisible against the display background of this program. You 
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can, of course, change the colour of a sprite to light or dark grey 
when using it in another program. 

As soon as you key the colour, a large area of screen to the bottom 
left of the screen clears to light grey. This is the area in which you 
design each sprite. As soon as the area is cleared a ‘cross’ symbol 
appears at the top left corner of the area. This is the cursor that 
shows you in which part of the area you are currently working. 
Think of the area as being composed of 21 rows of blocks, with 24 
blocks in each row. The cursor starts at the first block of the first 
row. The idea is to build up the design block-by-block. As you work, 
the cursor moves along each row, dropping to the beginning of the 
row below when it comes to the end of a row. 

The control keys for moving the cursor and plotting the sprite are: 

Space-bar moves the cursor, leaving the block in the 
background colour (light grey). 

/ - moves the cursor, but leaves the block in the sprite colour you have 
chosen. This is the key you use for building up the design of the sprite. 

t takes the cursor back one block, for correcting mistakes. You 
can go back as far as you like by using this repeatedly. When the 
cursor gets to the beginning of any row, the next press on ‘1’ takes it 
to the row above. Moving the cursor backward does not erase the 
design which is already on the screen, but now you can move 
forward again, overtyping the incorrect parts of the design with the 
correct version. If you take the cursor back to the top left corner of 
the design area, the whole design of that sprite is cancelled and you 
can begin it again. 

F This is the ‘finish’ key. Often you will not want the sprite to 
extend over the whole area. Instead of having to key numerous 
spaces to take the cursor to the bottom right corner, all you have to 
do is key F. 

As you work across and down the design area, you will see the 
sprite itself being built up just to the right of the design area. It is 
displayed at twice its normal width and height. Corrections made to 
the design are also made on the sprite. In any program you write you 
can have the sprite displayed in its normal size, or double-sized, as 
displayed here. More about this feature later. 

As soon as you press ‘F’ or move the cursor off the bottom right 
corner of the design area (by pressing */’ or the space-bar) the screen 
clears and the values to be POKEd are displayed. The enlarged sprite 
disappears, reappearing in its normal size at the extreme right of the 
screen. 

Copy down the details you need. The way to use these is explained 
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in the next section. When you have finished, press ‘S’ to go on to 
define the next sprite. The screen clears and you are back at the first 
stage of the program. As each sprite is defined, it is displayed in a 
column on the right of the screen. 

After the eighth sprite has been designed and its details displayed, 
pressing ‘S’ clears the screen and ends the program. The sprites are 
turned off, but are still in memory. If you wish you can key in or 
LOAD another program without having to key in sprite details. If 
you want to define fewer than 8 sprites press RUN/STOP to leave 
the program. 


Using sprite information 

The description below assumed that the sprite definitions are to be 
stored in RAM from address 12288 onward. To protect the area of 
memory above this address, the program must have this line at or 
near the beginning: 

POKE 52,48:POKE 56,48 

The details displayed for each sprite are interpreted and used as 
follows: 

SPRITE NO. V = 53248 

This is the base address of the video chip and is used in the POKEs 
which follow. Define V=53248 at the beginning of your program. 

POKE MEMORY FROM TO 

These are the first and last of a set of 63 addresses in RAM into 
which the values defining the sprite must be POKEd, in order. They 
are followed by the 63 values to be POKEd. The most common 
method of putting these values into RAM is to key them in as DATA 
statements in your program, the program READs each item in turn 
and POKEs it to the given addresses in RAM. 

POINTER 

This is needed to tell the video chip where the definition of the sprite 
is stored in memory. POKE the address given with the value given. 
This should be done at the beginning of your program. 

COLOUR TO 

This gives the address to which the colour required for the sprite is to 
be POKEd. The address is given in the form ‘V + number’. To obtain 
any required colour, POKE the address with one of the colour 
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values listed in Appendix G of the Commodore 64 User Manual. 
X POSITION TO 

This is the address for the X-position. The value to be POKEd 
ranges from 24 (left of screen) to 255 (toward right of screen, but see 
later). 

Y POSITION TO 

The address for the Y-position. The value to be POKEd ranges from 
50 (top of screen) to 229 (bottom of screen). 

BIT POKE IS TO BIT 

This tells you which bit to POKE (and, in brackets, the actual value 
to be POKEd) to make the required changes in any or all of the 
addresses which are listed below. 

FOR TURN-ON (V+21) 

Bit-POKEing to this address turns sprites on or off (POKE a ‘0’ to 
the bit to turn it off). 

X-RIGHT (V+16) 

Normally all bits in this address are ‘0’. When the sprite is to be 
moved to the right of the screen, its bit in this address must be set, by 
POKEing the value shown above. When this bit is POKEd, the X 
POSITION address is to be POKEd with a value ranging between 
‘0’ and ‘64’ (puts sprite at extreme right). 

VERT-EXPD (V+23) 

When the bit is ‘0’ the sprite has normal height. When the bit is 
POKEd with the value shown above, it expands to twice its normal 
height. 

HOR-EXPN (V+29) 

When the bit is ‘0’, the sprite has normal width. When the bit is 
POKEd with the value shown above, it expands to twice its normal 
width. 

Using the values given above you have complete control of all of the 
sprites. 

The ‘bit POKEs’ are made to individual bits of an address, at 
which a bit is allocated to each sprite. If you have only one sprite on 
the screen at a time, you simply POKE the value shown. To turn the 
sprite off, to reduce it to its normal size, or to switch it from the right 
of the screen to the left, just POKE the appropriate address with ‘0’. 

If you have several sprites in action at once and want to affect just 
one of them, it is essential not to interfere with the bits relating to the 
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other sprites. This is done by a special POKE command such as this: 

POKE V+16, (PEEK(V+16)AND (255~Z))+Z 

In this command substitute the given bit-poke value for Z. Thus the 
command to switch on sprite 3 is: 

POKE V+16, (PEEK(V+16)AND251)+4 

To switch it off without affecting the other sprites the command is: 

POKE V+16,PEEK(V+16)AND251 

Bit pokes to other addresses are done in a similar way. 

Lines 130 and 330 of the listing contain examples of this 
command. 


Keying in 

Control characters used are: 

CLEAR: lines 50, 340 
CRSR DOWN: lines 50, 34 


Program design 

20 reserve memory, set screen and border colours. 

30 initialise variables. 

40 clear pointer RAM. 

50-60 sprite number; position sprite to the right of design area; set 
it to be extended vertically and horizontally. 

70 180 get colour; POKE sprite register with colour; POKE 
video RAM to display colour patch to right of text; turn on 
sprite; clear RAM for sprite definition, make design area light grey. 

190 310 for each block of design area in turn, POKE video RAM 
with colour; POKE bits in sprite definition RAM if block is in 
foreground colour. 

320 reduce sprite to normal size. 

330 relocate spirite to right-hand column of screen. 

340 540 displaying sprite details. 
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The program 


10 REM ** SPRITES GALORE ** 

2© POKE 52^ 43 : POKE 56.- 43 : POKE 53280, 12T 
OKE 53281,11 

30 G-- 1 024 : H =55236 : V =5324S : M= 1 2288 : S = 0 : R = 
0 = XR —0 

40 FOR J=0 TO 7 : POKE 2040+J, 132+.J : NEXT 
50 PR I NT "7350 SPRITE HO." ;S 

60 POKE V+S*2,224'POKE V+l+S*2, 138TGKE 

V+29 .. 2 -tS = POKE V+23,2 43 
7-0 PRINT" COLOUR?" 

80 GET FI*: IF R*=" " THEH 88 

3© R=RSCCR*> : IF R>32 AND R<41 THEN C=R-2 
5:GOTO120 

100 IF fl>48 RHD R<58 THEH C=R-49 : GOTO 12 
0 

110 GOTO 88 

120 POKE V+39+8,C : POKE H+92 * C : POKE G+92, 
1 68 

130 POKE V+21 < PEEK CV + 21 )AND< 255-2 TS > > ■+• 2 

'IS : BC—15 : IF C=15 THEH EC= 1 

140 FOR J=© TO S3:POKE M + SH*64 +J .■ 0 : NEXT 

150 FOR K=4 TO 24=FOR L = 0 TO 23 

160 POKE H+40#K+L,EC 

IT*© POKE G+40#K+L, 160 

1©0 NEXT:NEXT 

130 K=4 

200 I——0 

210 POKE G+40*K+L , 86 

220 GET R* : IF R*0"X" RHD R*<>" " RHD R* 

<>”T" RHD R*<>”F" THEH 220 
230 IF R*="F" THEH 320 

24© P=M+SiK64+C K-4 > #3 + I NT ( L/8 5 3=2tC7-<L- 
IHTCLKS>a|6S> ■> 

250 IF R*=“K” THEH PpKE H+40*K+L .■ C : POKE 

P> <PEEKCP>RHD<255-~E> >+B 

260 IF R*=” 1 THEN POKE H+40#K+L,BC : POKE 

P, <PEEKCP>RND<255—B>> 

270 POKE G+40#K+L, 160 : IF R*==”T" THEH L=L 

-1 : IF l_>— 1 THEN 210 

2S0 IF L=— 1 THEN K—K— 1 : L=23 : IF K>3 THEH 
200 

230 IF K—3 THEH 140 
300 L=L-+1 : IF L-C24 THEH 210 

310 K=K-<-l : IF K<25 THEN 200 

320 POKE V+23,© : POKEV+29,0 

330 POKEV+3*2 .. 48 : POKEV+ 16, < PEEK < V-+-16? RND 

C 255—2 TS 5 ?+21S : POKE V-+- 1 -t-S*2,50+S#24 

340 PRINT"n«l SPRITE NO. " ; S; TABC20? "V=" ; V 

350 PRINT" POKE MEMORV FROM";N+3#64 

360 PRINTTRBC 15? "TO" 1 M-+CS-+-1 )*64-2; "WITH 

370 FOR J—0 TO 62 STEP 6 

330 FOR JJ=J TO J-+5 

390 IF T-J<63 THEH PR I HTPEEK C M+S*64+JT J > 
400 NEXT 

41© PRINT"":NEXT 

420 PRINT"POIHTER : POKE"?2040+S;192+ 

430 PRINT"COLOUR TO V+"i39+3 

440 PRINT"X POSITION TO V+"J2*S 

450 PR I NT "V POSITION TO V+".:2#S+1 

460 PRINT"BIT FOKE IS TO BIT”>S+ 1j " < " ;2 T 

g j «i y i* 

470 PRINT"FOR TURN—OH CV+21 >, X —RIGHT C V 
+ 16?" 

430 PRINT"VERT—EXPD <V+23>, HOR—EXPD <V+ 
29? " 
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Pf?INTTRH:<6>"< KEV 'B' FOR NEXT SPRIT 

E >’’ 

500 GET R*: IF RSO-S” THEN 500 
510 3—S-h 1 : IF S<8 THEN GOTO 5© 

520 PRINTTRB^V'#* PROGRRM FINISHED ■' 
530 POKE V+21,0 
540 END 
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What Next! 



mi kit ium ar actiows is 
*tio« i • ts a 

iCTIOD 2 2< * 

mem rworr is -i n 

C SPACE BA* roe aaotmc* assessment 


When you have a decision to take, be it in business or your personal 
life, it usually helps to set down on paper all the possible events that 
could occur, all the possible actions that you could take and what 
their consequences might be. Edward de Bono recommends an 
approach of this sort to most of life’s problems. This program takes 
you one stage further. It helps you find your way through the 
confusing and often contradictory mass of facts and assumptions 
and arrive at what is likely to be the best course of action. 

The program is based on techniques of operational analysis that 
are applicable to decision-taking. The program is a relatively simple 
one and therefore has some limitations, as will be described later. It 
is not infallible, but in spite of this it can give you useful pointers as 
to what your next step should be. 

It might also be said that, by the time you have sat down and 
analysed the possibilities and the courses of action available to you, 
you will have arrived at a deeper understanding of what confronts 
you, and will be able to proceed to the best decision without having 
to use the program. If this is the case, the program will have achieved 
its stated objective! 
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What the program does 

The program supposes that you are in a situation in which one or 
more of a number of different events (at least two, not more than 
ten) may occur and that you have a number of courses of action (at 
least two, not more than ten) available to you. The program will tell 
you which one or more of your courses of action will give you the 
best reward in the long run (note the words ‘in the long run’). The 
program assumes that this is not just a single once-and-for-all 
decision, but a decision involving a continuing policy. No program 
could be expected to tell you exactly what will happen on a single 
occasion. If your decision refers to several occasions, then the 
program can guide you. 

Here is an example. Suppose that you own a shop and that there is 
one other comparable shop in the same town. Any increase in your 
profits will be reflected by an equal decrease in the profits of the 
other shop and vice versa. Your aim is to increase your profits. Both 
shop owners have these three courses of action which might increase 
profits: cut prices on existing stock, stock cheaper lines, stock dearer 
lines. In addition, you have the option of extending your opening 
hours, but the other owner does not have that option. Naturally, the 
outcome of any decision of yours depends very much on decisions 
made by the owner of the other shop. Let us call that owner’s 

Table 13.1 


EVENTS 

(decisions of other owner) 

Cut Cheaper Dearer 



prices 

lines 

lines 

ACTIONS 

Cut 

prices 

12 

-13 

28 

Cheaper 

lines 

18 

-3 

15 

Dearer 

lines 

-32 

-2 

20 

Extra 

hours open 

-15 

25 

42 
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decision ‘events’ for they are outside your control. Naturally, the 
other owner is anxious to increase profits too, at your expense, so 
will take decisions designed to minimise your profits. You look at 
the possibilities and try to assess what your profits are likely to be 
under each decision of your own (an action) and under each decision 
of the other owner (an event). Table 13.1 shows how you might 
assess your likely profits, in thousands of pounds. A negative figure 
represents a loss. These figures are usually described as the ‘payoffs’ 
of each combination of event and action. 

The success of the analysis depends on how accurately you have 
gauged your likely profit or loss under each set of circumstances. 
The figures represent your best estimates and, on this basis, the 
program tells you what you should do to maximise your profit. 

In this example, if this data is fed into the computer using What 
Next?, the result is the advice to pursue two courses of action. There 
is no one course which will ensure success, for if you stick to one 
course your competitor may be able to change tactics to your 
disadvantage. The recommended actions are to stock cheaper lines 
and to open the shop for extra hours. The program recommends that 
these actions should be taken in the ratio 65% to 34%. In other 
words, concentrate your main efforts on stocking cheaper lines and 
extend your opening hours by a moderate amount. 

J ust how you interpret the results of the analysis depends so much 
on the problem that you are analysing that it is not possible to give 
further guidance here. 

The final display of the program also quotes the expected payoff if 
you follow its recommendations. In this example, the payoff is 6.6. 
This means that if you adopt the suggestions, you are likely to make 
an extra profit of £6600 at the expense of the other shop, no matter 
what action the other proprietor takes to minimise this amount. 

In this example, two courses of action were recommended. In 
other analyses you may find only one is recommended, or perhaps 
all will be recommended with certain ones predominating. 

This program could also be used when your competitor is ‘fate’. In 
other words, you are not operating against a person like yourself, 
who is a rational being in full possession of the facts and the ways of 
maximising their profits at your expense. 

For example, as a store owner you might be wondering whether to 
increase your stocks of umbrellas and rainwear, or whether to 
expand your sports goods department. The success of either of these 
policies depends on a number of relatively unpredictable factors 
outside your control, such as the future weather, the employment 
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levels in the local population, the opening of a local sports centre, 
current leisure trends among the spending population, or an 
increase in petrol charges which might induce people to walk to 
work and so need rainwear. None of these factors are acting 
deliberately to minimise your profits. This is ‘blind fate’. Although it 
affects you a great deal, you do not affect it at all! So the program is 
not strictly applicable to such decisions, unless you are the kind of 
person who assumes that fate is inevitably unkind. With this proviso 
in mind, there is still no harm in trying the program. Working out 
the payoffs could well help to put the factors in perspective. 


How to use the program 

Before you start to use the program, write out a table like Table 13.1, 
showing all possible events, and all possible actions you can take. 
Fill in the table with the payoffs. These might represent money, as in 
the example above, but could equally well be estimates of other 
kinds, such as time lost or gained in completing a project, happiness 
(or other kinds of satisfaction) to be expected from the possible 
outcomes. Anything which you feel able to represent by a figure can 
be entered as a payoff. In any table, all payoffs must represent the 
same thing. 

When you RUN the program, the computer first asks how many 
events there are and how many actions you have available. Key in 
the corresponding numbers, i.e. the numbers of columns and rows in 
your payoff table. There can be up to 10 events and 10 actions, 
though it is not often that you will need as many as this. 

Next the computer asks you to key in the payoffs. Key these in, 
column by column. If you make a mistake, press R UN / ST OP, rerun 
the program and begin again. As soon as the last payoff has been 
entered, the screen clears. The message ‘CALCULATING’ is 
displayed. A few seconds later the analysis is complete. You will see 
that either one action or a mixture of actions is recommended. In the 
latter case you are told what the ‘mix’ should be. Actions which are 
not recommended at all are often eliminated early in the calculation. 
If this happens, the actions concerned are omitted from the display. 
Actions eliminated at a later stage in the calculation, are listed in the 
display, but with the percentage, ‘0%’. If you are told to mix two 
actions, on some occasions you should take one action, and on 
another occasion the other. Over a series of occasions, the actions 
should be taken with the frequencies indicated by the percentages. 
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The result of this is to give you a payoff close to the value displayed. 


Keying in 


Control characters used are: 

CLEAR: lines 30, 70, 130, 3000, 4000 
CRSR DOWN: lines 30, 50, 130 (2), 3000, 3040 (2), 3050 (5), 
4000, 4010 (2) 

CTRL/2: lines 30, 3000, 4000 
CTRL/4: line 3050 


Program design 

20 dimensioning array for payoff table. 

30 120 inputting data. 

130 690 analysing the table to find if there are single actions to be 
recommended; deleting actions which are certainly not worth taking 
under any events. 

700 -720 preparing the table for a simplex analysis. 

1000 1180 simplex analysis to determine the best combination of 
actions. 

3000 3080 display of combination of actions. 

4000 4020 display of single action. 


The program 


10 REM ** L-4HRT NEXT? ** 

20 DIM T C 22 j 1 1 j 

30 I NPUT " C3Wl=HOUi MRNV EVENTS" ; M* 

40 M=VRL<M*):IE M<2 OR M>10 THEN 30 

50 INPUT"MUON MRNV RCTIONS"•Ni 
60 H=VRL<N*):IF N<2 OR N>10 THEN 50 

7"0 PR I NT ” TENTER PRVOFFS ■ 

80 FOR J=1 TO M 
30 PRINT"EVENT”;J 
100 FOR K=1 TO N 

110 PRINT" RCTI ON" ; K; INPUTT < J , K> 
120 NEXT NEXT 

130 PRINT'TMM] CRLCULRT I NO " 

140 FOR K=1 TO N MRCK>=TC1,K> 

150 FOR l_=2 TO M 

160 IF T(L / K) <MR <C K > THEN MR CK) ~T < L ■ K > 

1?0 NEXT:NEXT 

130 MR=MRC1>:BR=1 

130 FOR K=2 TO N 

200 IF MRCK)>MR THEN MR=MROO :BR=K 
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210 NEXT 

230 FOR J=1 TO M 
240 MC<J)=TCJ,1> 

250 FOR l_=2 TO N 

260 if t<j,l)>hc<:j> then mc< jxtl.> 

270 NEXT:NEXT 
230 MV-MC<1> 

230 FOR -J = 2 TO M 

300 IF MCCJKMV THEN MV*=MC<-J> 

310 NEXT 

320 IF Mfl=MV THEN 4000 
330 IF N<3 THEN 430 
340 FOR K—1 TO N 

350 FOR l_=*l TO N 

360 FOR -J=l TO M 

370 IF T< J, K>> = T<.J_. L> THEN 330 

330 D < K .. I_> — 1 

330 NEXT:NEXT:NEXT 

400 FOR K=1 TO N 

410 FOR L=1 TO N 

420 IF D<K.. I_>=0 RND KOL THEN DR<L_> = 1 
430 NEXT = NEXT 
440 K= 1 = L.= 1 

450 IF DR(K)=0 THEN DR < L > =K = L = !_-*-1 
460 K=K+1 - IF K<N+1 THEN 450 

470 N=N+L-K : FOR K -1 TO N : FOR J—1 TO M T< 

J J K > —T <. J > DR < K > > - NEXT : NEXT 

430 IF N“1 THEN Bfl=DRCl) GOTO 4000 

430 IF M<3 THEN 610 

500 FOR J=1 TO M : FOR L_=l TO M = FOR K= 1 TO 

N 

510 IF T< J KX=TCL.. K> THEN 530 

520 E<J^L>=1 

530 NEXT = NEXT : NEXT 

540 FOR J=1 TO M 

550 FOR L_=l TO M 

560 IF E<T^L>=0 FIND -JOL THEN ER<L) = 1 

570 NEXT = NEXT 
530 J=1 : L=1 

530 IF ER<J?=0 THEN ERCL)=J ; L = L-*-l 
600 J=J+1 : IFXM+1 THEN 530 

610 M=M+L-J■FOR J=1 TO M FOR K=1 TO N TC 

J .. K > =T < ER C J > , K > - NEXT NEXT 

620 FOR J=M+1 TO M+N : FOR K=1 TO N = T < J > K > 
=0:NEXT:NEXT 

630 MM=T<1,1)-FOR J=1 TO M FOR K=1 TO N : 

IF T<J,KXMM THEN MM=T<J,K) 

640 NEXT NEXT 

650 IF MM>9 THEN MM=0 GOTO 700 
660 MM=1-MM 

670 FOR J=*l TO M = FOR K= 1 TO N 

630 T < J .. K > =T <J)K) +MM 
630 NEXT:NEXT 
700 T<0,0>=1 

710 FOR J=1 TO M ; T<J/0> 1 : NEXT 

72© FOR K*= 1 TO N T < h1-»-K .. K > = 1 ; T < M+-N-+1 .. K ? “ 1 

: NEXT 

1000 L=0:FOR J~1 TO M+N 

1010 IF T<Jd0XL THEN L=-TCJ.. 0> = C= J 
1020 NEXT 

1030 IF l_ = 0 THEN GOTO 3000 

1040 MR=* 1 E 1 0 = FOR K= 1 TO N 
1050 X = T(C..K> : B = T<M + N+1,K) 

1060 IF X<=0 THEN 1030 

1070 TR = B/X : IFTR<MR THEN MR*=TR : R = K 
1030 NEXT 

1030 P = T(C,R) - FOR J=1 TO M+-N+-1 
1100 T<J,R>«T<J,R)/P 

1110 NEXT 
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1120 FOR K —© TO N 

1130 F=T(C; KVT CCj Rj : IF K = R THEN 1170 

1140 FOR JT= 1 TO M+N+l 

1150 tcj,k>=t<:j,k>-f*t<j,rj 

1160 NEXT 

1170 NEXT 

1180 GOTO 1000 

3000 PRINT'TMd THE BEST BLEND OF RCTIONS 
IS : " 

3010 FOR K=1 TO N 

3020 PRINT" SlflCTION";DRCK>; " : "1INTCT<M + 

k ^ 0 > xt c m-*-n-+- i ^ 0 > * i 00 > ; x " 

3030 NEXT 

3040 PRINT"WMEXPECTED PRVOFF I3:”,1/TCM+ 
N-+-1 0 > —MM 

3030 PRINT-KDtffeCDfflSk^ < SPHCE BAR FOR RNOTHE 
R ASSESSMENT >" 

3060 GET flj: IF R=tO" *■ THEN 3060 

3070 CLR 
3030 GOTO 30 

4000 PR I NT " THEMEEST RCTION IS: " BA 

4010 PR3NT"W« EXPECTED PRVOFF IS : "i MR 
4020 GOTO 3050 




GET YOUR COMMODORE 64 WORKING FOR YOU! 


The powerful Commodore 64-with its large memory and 
versatile graphics - is ideal for both home and office. Here 
are thirteen practical programs to help you organise your 
life better, run a small business, and perhaps even help 
you win a fortune. 

Programs include: 

Accountant -for home and business. 

Phone Call Coster -displays the cost of a call while the call 
is in progress, taking the various rates into account. 

Info Ple-a versatile database with hundreds of 
applications for busy people. 

Stock Take -for the office or kitchen, or whatever you 
choose. 

What Next'? - for making the best decisions. The computer 
tells you what to do. 

Pools Punter and Ipster-for improving your chances with 
the pools or at racing. 

Full Instructions and suggested applications are provided, 
with all you need to know on how to adapt the programs 
to suit your special needs. Most people want a micro to 
help them in their lives. Here is your opportunity to make 
your micro work for you. 

The Author 

Owen Bishop is a freelance technical writer and 
programmer. He is the author of over thirty books including 
a number on popular computing. He is a well-known and 
regular contributor to computing journals. 
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